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ÎN BASH SI PERL 


Cuvânt înainte de prof. dr. ing. Dan Grigoraş 
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2002 


Cuvânt înainte 


În- cadrul Facultăţii de Informatică a Universităţii „AlI. Cuza” din Iaşi 
funcţionează de câţiva ani un colectiv de cercetare în domeniul tehnologiilor Web, 
foarte tânăr şi dinamic. Membrii lui organizează workshop-uri, editează reviste 
electronice, creează si administrează situri dinamice. Fructificând o parte din 
experiența acumulată şi cele mai interesante rezultate, Sabin Corneliu Buraga, 
Stefan Tanasă şi Victor Tarhon-Onu au scris cartea de faţă. Utilitatea ei în 
contextual actual este evidentă si nu mai trebuie argumentată. Important în cazul 
unei publicaţii, care se adresează mai ales tinerilor interesaţi de tehnologiile 
Internet, este calitatea sa, exprimată prin conținut, structură, stil şi referinţe. 

Conţinutul este, fără îndoială, cel mai important. Autorii au ales să trateze 
elementele definitorii ale tehnologiei Web actuale, în capitolul introductiv, apoi 
standardul CGI, shell-ul Bash şi limbajul Perl, fiecare în câte un capitol separat, 
capitolele 2, 3 şi 4 oferind cititorului instrumentele pentru scrierea scripturilor 
necesare pentru execuţia şi administrarea unor aplicaţii distribuite. Fiecare capitol 
include definirea termenilor folosiţi, are o evoluție naturală în cadrul subiectului 
tratat şi foloseşte numeroase exemple. Remarc în mod deosebit transmiterea cu 
generozitate de către autori a experienţei lor în proiectarea a numeroase tipuri de 
aplicaţii, de la cele de baze de date, administrate pe Web, până la monitorizarea 
calculatoarelor din reţea. 

Mai mult, fiecare capitol se încheie cu un număr de exerciţii propuse cititorilor, 
ceea ce face lectura şi mai interesantă. 

Doresc să-i felicit pe autorii acestei întreprinderi originale, tineri care au găsit 
timpul necesar să scrie o carte foarte bună, situaţie extrem de rară în ziua de azi. În 
mod sigur, acest volum va fi urmat de altele, care împreună cu cele deja publicate 
vor forma un set de referinţe în limba română extrem de utile proiectantilor de 
sisteme distribuite. 


Prof. dr. ing. Dan Grigoraș 


Computer Science Department 
University College Cork 
Ireland 


6 februarie 2002 


Prefatá 


Dezvoltarea în ultimii ani a Internetului, dar mai ales a unuia dintre cele mai 
importante servicii ale sale, spaţiul World Wide Web, a condus la necesitatea de a 
realiza aplicaţii distribuite, indiferent de platforma hardware şi software. Prin 
domenii precum e-business-ul, învățământul virtual, bibliotecile digitale sau 
divertismentul electronic, rolul Web-ului este de necontestat. 


Cartea de faţă îşi propune să realizeze o descriere detaliată a unuia dintre cele 
mai folosite standarde de programare pe partea server a aplicaţiilor destinate 
Web-ului: CGI (Common Gateway Interface), concentrându-se asupra elaborării 
de aplicaţii CGI în două dintre limbajele de tip script larg utilizate pe platforma 
Linux (dar nu numai): shell-ul bash si limbajul Perl. Aláturi de ilustrarea — prin 
prisma dezvoltatorilor si administratorilor de aplicaţii şi situri Web — a celor mai 
interesante si mai utile caracteristici ale acestor limbaje, insistám pe prelucrarea 
practicá a datelor prin intermediul serverelor de baze de dare relaționale (în 
dialecte SQL ca MySQL sau PostgreSQL, frecvent folosite pe platforma Linux) şi 
a documentelor XML. De altfel, tânărul meta-limbaj XML (Extensible Markup 
Language) va avea un viitor strálucit in misiunea sa de a structura, indiferent de 
sistemul de operare sau de o aplicaţie specificá, proprietará, datele, fiind 
urmátoarea lingua franca a spatiului WWW. 

Vázutà ca o continuare a două alte lucrări (S. Buraga, Tehnologii Web, Matrix 
Rom, Bucureşti, 2001; şi S. Buraga, G. Ciobanu, Atelier de programare în retele 
de calculatoare, Polirom, lagi, 2001), cartea poate fi folosită în cadrul 
laboratoarelor şi orelor de tehnologii Web, fiind destinată atât studenţilor si elevilor 
din facultăţile şi liceele cu profil informatic, cât şi proiectantilor şi administratorilor 
Web şi tuturor celor interesaţi de acest domeniu efervescent al ştiinţei calcula- 
toarelor. De asemenea, ea poate fi considerată o inițiere utilă în problematica 
limbajelor script bash şi Perl, instrumente indispensabile în administrarea și 
programarea în principal a mediilor Linux, dar disponibile şi pe alte platforme. 

Lucrarea include un CD care cuprinde atât codul-sursă al majorității exemplelor 
şi studiilor de caz prezentate, cât şi documentatii suplimentare, programe şi 
aplicaţii utile pentru experimentarea şi aprofundarea materialului din carte, 
disponibile pentru diferite distribuții Linux sau alte platforme. Astfel, cititorul 
interesat va putea folosi distribuțiile Perl pentru RedHat Linux sau Slackware 
Linux, cele mai folositoare module Perl de la CPAN, indispensabile 
programatorilor de sistem sau proiectantilor de situri Web complexe, distribuțiile 
actuale ale serverelor de baze de date MySQL si PostgreSQL, pachetul gratuit 
Cygnus implementánd comenzile Linux (UNIX) uzuale şi shell-ul bash, portate pe 
platformele Windows — la care se adaugá si alte surprize, plácute, spunem noi. 

Autorii speră că volumul de față realizează o prezentare suficient de amănunţită 
în programarea CGI şi demonstrează flexibilitatea şi uşurinţa în realizarea de 
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aplicaţii Web complexe, utilizând exclusiv tehnologii şi sisteme deschise. Pentru 
a-şi exprima punctele de vedere sau pentru a se informa cu privire la evoluția 
mereu neprevăzută a domeniului, cititorul este încurajat să viziteze situl Web 
dedicat acestui volum la adresa http://www.infoiasi.ro/-cgi/ şi să intre în contact 
cu autorii la cgi ?infoiasi.ro. 

În încheierea acestei prefețe, autorii doresc să-şi exprime gratitudinea pentru 
ajutorul (direct sau indirect) acordat în cristalizarea acestui material colaboratorilor 
Dragoş Acostăchioaie, Lenufa Alboaie, Ancufa Avram, Vlad Ciubotariu, Valentin 
Crețu, Daniel Dumitriu si Cristian Vidrașcu. Un gând special de mulţumire este 
adresat domnului Dan Grigoraş şi familiilor noastre. 

Autorii 
laşi, februarie 2002 


Capitolul 1 
Tehnologiile Web pe scurt 


În cadrul acestui capitol se va face o trecere în revistă a 
tehnologiilor Web actuale: hipertextul, protocolul HTTP, 
adresarea resurselor, limbajele de marcare şi aplicaţiile lor 
(insistându-se pe familia XML). 


1. Introducere 


World Wide Web-ul reprezintă un sistem de distribuţie locală sau globală a 
informațiilor hipermedia. Din punct de vedere tehnic, spaţiul Web pune la 
dispoziţie un sistem global şi standardizat de comunicare multimedia, informaţiile 
fiind organizate asociativ şi distribuite în funcţie de cererile utilizatorilor, functio- 
nând conform modelului client/server. Web-ul, cu toată dezvoltarea lui specta- 
culoasă, nu trebuie confundat cu Internetul, ci poate fi văzut drept cel mai 
efervescent si dinamic serviciu al acestuia, neputând exista fără infrastructura 
hardware a rețelelor mondiale interconectate. 


Spaţiul WWW a fost creat la CERN (Centrul European de Cercetări Nucleare de 
la Geneva) în anul 1989 de către fizicianul Tim Berners-Lee şi echipa sa, cu scopul 
de a avea acces mai uşor la informaţiile tehnice ale manualelor de utilizare a 
calculatoarelor. Data de 12 noiembrie 1990 se consideră a fi ziua de naştere oficială 
a Web-ului. Primul client grafic permiţând vizualizarea de documente WWW a 
purtat denumirea World Wide Web. Dezvoltarea ulterioară a sistemului a fost 
facilitată de navigatorul grafic Mosaic, rulând sub mediul XWindow. Acest 
navigator era foarte simplu de folosit şi poseda facilități multimedia, fiind furnizat 
gratuit pe Internet începând din 1993. 


Ca orice serviciu bazat pe modelui client/server, Web-ul constă dintr-o pleiadă 
de servere Web. Cele mai cunoscute sunt Apache, Netscape Enterprise Server, Sun 
Web Server, Microsoft Internet Information | Server, Stronghold, Jigsaw. 
Calculatorul pe care rulează un server Web si care gázduieste o serie de pagini 
WWW se mai numeşte si sit (site). Documentele (paginile) Web vor fi vizualizate 
de utilizatori prin intermediul navigatoarelor Web (denumite si browsere sau 
agen[i-utilizator), care reprezintá de fapt clienţi solicitând resurse hipertext 
serverelor Web. Dintre cele mai populare navigatoare actuale pot fi amintite 
Netscape Navigator, Internet Explorer sau Opera (toate operând in mod grafic), ori 
Lynx sau Links (rulánd in mod text). 
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2. Hipertextul 


2.1. Definiție si structură 


Pentru ca informațiile să poate fi accesate in manieră globală si distribuită, ele 
trebuie stocate într-o formă specială reprezentată de hipertext. Acest termen a fost 
introdus de Ted Nelson în anul 1965 si se regăseşte si sub denumirea de text 
neliniar. 


Actualmente, definițiile hipertextului sunt diverse, acesta reprezentând: 


e o formă de document electronic; 

e o metodă de organizare a informaţiilor in care datele sunt memorate într-o 
reţea de noduri şi legături, putând fi accesată prin intermediul naviga- 
toarelor interactive şi manipulată de un editor structural, 


De asemenea, hipertextul denotă o tehnică pentru organizarea informaţiei 
textuale printr-o metodă complexă neliniară, în vederea facilitării explorării rapide 
a unei cantități mari de date (cunoștințe). Conceptual, o bază de date hipertext 
poate fi gândită ca un graf orientat, unde fiecare nod stochează un fragment de text, 
iar arcele grafului conectează fragmente de text cu altele înrudite. Pentru a 
vizualiza textul dintr-o asemenea de bază de date, utilizatorul se va folosi de o 
interfață (browser), traversând legăturile. 


În prezent, hipertextul se confundă de multe ori cu termenul hipermedia — 
colecţie de obiecte (documente) multimedia incluzând hiperlegături. Multimedia 
poate fi privită drept sursă a activitatilor de proiectare, stocare, interogare si 
utilizare a documentelor electronice compuse din „medii” multiple precum video, 
audio, animaţie, text, grafică şi imagine. În general, o aplicaţie este considerată a fi 
multimedia dacă contine măcar o media continuă (video sau audio) şi una discretă 
(cum ar fi textul sau imaginea statică), 


Un sistem hipertext (sau hipermedia) este constituit din noduri (concepte) şi 
legături (relaţii între concepte). Un nod reprezintă, în mod uzual, un concept unic, 
putând conţine text, grafică, animaţie, audio, video, imagini sau programe. De 
asemenea, un nod poate avea asociat un tip (detaliu, propoziţie, colecţie, observaţie 
etc.) înglobând o informaţie semantică. Nodurile sunt conectate cu alte noduri prin 
intermediul legăturilor. Nodul-sursă al unei legături se numește referință, iar cel 
destinație — referent. Nodurile conectate prin intermediul unei legături sunt 
denumite şi ancore. 


e 
In mod uzual, conținutul unui nod se afișează la activarea legăturii. Modalitatea 
de stocare a informatiei în cadrul nodurilor variază de la sistem la sistem, dar cele 


mai folosite tehnici utilizează limbajele de marcare (SGML sau, mai nou, XML), 
standardele actuale construite pe baza acestor limbaje fiind HyTime 
(Hypermedia/Time-based Structuring Language), MHEG | (Multimedia and 
Hypermedia Information Coding Expert Group) sau HTML (HyperText Markup 
Language). Avantajul major este asigurarea independenței de platforma hardware 
şi software, formatele proprietare conducând la greutăți în navigare, căutare sau 
întreținere. Din moment ce nodurile pot conține informații multimedia, sistemele 
hipermedia trebuie să fie suficient de flexibile pentru a suporta o multitudine de 
formate grafice, audio si video. 


Legáturile sunt conexiuni intre noduri (sau concepte) dependente unul de altul, 
putând fi bidirecfionale sau doar unidirecfionale. Ele pot avea asociate tipuri 
definind natura relaţiei dintre noduri. Legăturile pot fi referenfiale (utile pentru 
realizarea referintelor încrucişate, ele fiind cele care deosebesc cel mai bine 
hipermedia de celelalte forme de stocare a informafiei) sau organizaționale 
(denumite ierarhice sau structurale, ilustrând relaţiile părinte-copil dintre noduri, 
folosite la organizarea nodurilor în manieră ierarhică, într-o structură strictă). 


Browser hipertext 


Document hipertext 


Fig. 1.1 - O structură hipertext 
si vizualizarea unui nod al ei folosind un browser hipertext 


2.2. Marcarea hipertextului 


Ín vederea reprezentárii pe Web a documentelor hipertext se foloseste limbajul 
HTML (HyperText Markup Language), considerat lingua franca a spatiului 
World Wide Web. Limbajul HTML are o istorie care începe cu publicarea în 1986 
a specificatiei oficiale a meta-limbajului SGML: „Information Processing — Text 
and Office Systems — Standard Generalized Markup Language". HTML este bazat 
pe SGML, fiind o aplicaţie restrânsă a acestuia, concepută in vederea reprezentării 
informaţiilor hipermedia într-o manieră facilă şi distribuită., 
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Trecánd prin mai multe etape de dezvoltare (marcate de standardele HTML 2.0, 
HTML 3.2 si HTML 4.0), limbajul HTML tinde a fi inlocuit de XHTML, variantá 
de tranziţie la XML, după cum vom vedea mai jos. 


Pentru a asigura afişarea comodă a datelor în cadrul dispozitivelor mobile, 
miniaturizate, HTML este substituit de WML (Wireless Markup Language) sau de 
HDML (Handheld Device Markup Language). 


De asemenea, pentru a îmbogăţi mijloacele: de afişare a informaţiilor 
multimedia, documentelor HTML li se asociază aşa-numitele foi de stiluri în 
cascadă (CSS — Cascading Style Sheet). Foile de stiluri pun la dispoziţia creatorilor 
de pagini Web grupuri de proprietăți care definesc modul de apariţie a elementelor 
HTML în cadrul unui navigator Web. S-au standardizat două niveluri ale foilor de 
stiluri: CSS — nivelul 1 (Cascading Style Sheet — level 1) şi CSS — nivelul 2, în 
lucru aflându-se cel de-al treilea nivel. 


Limbajul CSS este un limbaj declarativ, uşor de înţeles si de utilizat şi exprimă 
proprietăţile de stil conform terminologiei editării computerizate. Din păcate, 
sintaxa CSS este incompatibilă cu sintaxa limbajului HTML. 


Vom furniza în cele ce urmează un exemplu de foaie de stiluri utilizată pentru 
formatarea cursurilor electronice, folosind proprietățile CSS — nivelurile 1 şi 2. 


/* Utilizata pentru cursul "Tehnologii Web" 


Autor: Sabin Corneliu Buraga - busacofinfoiasi.ro 
xy 
body { 
font-family: Arial, Helvetica, sans-serif; 
color: black; 
background-color: white; 
background-repeat: no-repeat; 
background-position: top right; 
H 
Qmedia screen ( /* doar pentru ecran */ 
body ( 
margin: 2cm; 
background-image: url(web-bg2.3pg): 
) 
) 
h1, h2, h3 t 
font-family: "Arial Black", Arial, Helvetica, sans-serif; 
font-weight: bold; 
H 
h2 ( 
border-left: solid navy; 
padding: 3px; 
) 
h4 ( 
letter-spacing: 0.2em; 
width: 100$; 
border-top: solid black; 


border-top-width: 1px; 
border-bottom: solid black; 
border-bottom-width: 1px; 


a:active ( 


color: blue; 


a:visited ( 


color: navy; 


a { 


font-family: Arial, Helvetica, sans-serif; 
font-weight: bold; 

text-decoration: underline; 

padding: 2px; 

border: none; 


) 


Qmedia screen ( /* ascundere de browserele mai vechi 
a:hover ( 


text-decoration: none; 

color: rgb(226,46,55); 

padding: 1px; 

border-left: solid thin 1px $CCCCCC; 
border-top: solid thin 1px $CCCCCC; 
border-right: solid thin 1px navy; 
border-bottom: solid thin 1px navy; 


p { 


line-height: 1.2; 

margin-top: 0.6em; 

margin-bottom: 0.6em; 

font-family: Arial, Helvetica, sans-serif; 
font-size: 12pt; 

text-indent: lem; 


) 


tt, pre, code ( 


color: darkred; 
font-size: lipt; 


) 


/* clase speciale de stiluri */ 


.atentie ( 
text-align: center; 
color: red; 
background-color: yellow; 
font-weight: bold; 


t 
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3. Protocolul HTTP 


3.1. Preliminarii 


Am văzut că printre conceptele esențiale ale tehnologiilor Internet se enumeră 
hipertextul şi hipermedia. Baza comunicării dintre serverele si clienții Web, la 
nivelul aplicație, este asigurată de protocolul HTTP (HyperText Transfer 
Protocol), ajuns la data redactării acestei lucrări la versiunea 1.1. Protocolul HTTP 
este folosit în special pentru hipertext, dar este un protocol generic, putând sustine 
un sistem distribuit pentru managementul obiectelor de date. Acest lucru se poate 
realiza grație posibilității de a extinde elementele structurale ale protocolului. O 
caracteristică importantă a protocolului este independența de platformă, diferitele 
calculatoare care comunică prin HTTP putând folosi diverse sisteme de operare si 
aplicații hipertext. Aceasta se realizează prin negocierea modului de reprezentare a 
datelor care urmează a fi transmise si prin capacitatea implementárilor de a codifica 
sau decodifica datele. HTTP este folosit încă din anul 1990, de la începuturile 
Web-ului. 


HTTP reprezintă un protocol generic pentru transmiterea informaţiilor în format 
hipertext, el aplicându-se şi între utilizator şi intermediari pentru alte protocoale 
mai vechi: SMTP (Simple Mail Transfer Protocol), FTP (File Transfer Protocol), 
NNTP (Network News Transfer Protocol) sau Gopher. Fiind un protocol utilizat in 
Internet, HTTP este bazat pe stiva de protocoale TCP/IP (Transmission Control 
Protocol/Internet Protocol). 


3.2. Conceptele de funcționare 


Principalele concepte cu care lucrează protocolul sunt cererea şi răspunsul: un 
client Web trimite un mesaj (cererea) la un server. Mesajul conţine identificatorul 
resursei dorite, dat sub forma unui URI (Uniform Resource Identifier), metoda de 
acces folosită, versiunea protocolului, precum şi o serie de meta-informatii care pot 
fi utile serverului. Răspunsul serverului cuprinde un cod indicând starea serverului 
după interpretarea cererii, un mesaj explicativ pentru codul de stare transmis, 
meta-informatiile care vor fi procesate de către client şi, eventual, un conţinut (e.g. 
resursa solicitată). i 


În general, o sesiune de comunicare HTTP este inițiată de către client şi constă 
în cererea unei resurse identificate unic pe un server cunoscut, numit şi server de 
origine datorită faptului că în comunicarea între client şi server poate apărea unul 
sau mai multi intermediari: proxy (numit şi server proxy), poartă (gateway) sau 
tunel (tunel). 


e Proxy este un intermediar care retrimite un mesaj HTTP, eventual 
modificând o parte a sa. 


ti 
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e Poarta reprezintă un intermediar care se poate situa înaintea unui server- 
-origine identificându-se drept acesta, clientul necunoscând acest lucru. 


> Tunelul este un intermediar care nu schimbă conţinutul mesajului, având 
rolul exclusiv de retransmitere a lui. 


În cele mai multe cazuri, între clientul şi serverul de origine nu există inter- 
mediari, între aceştia stabilindu-se o conexiune directă. 


FE 


(cerere INTERNET 
| invocare 


Senp CGI 


EES 


Fig. 1.2 — Modelul client/server HTTP: 
clientul Web formulează o cerere de solicitare a unei resurse stocate 
pe un server Web si primeşte răspunsul furnizat de acel server 


Un exemplu tipic de cerere-răspuns este următorul: 


Cererea 


GET /-bcv/index.html HTTP/1.1 

Host: students.infoiasi.ro 

User-Agent: Moziila/5.0 [en] (X11; U; Linux 2.2.14-5.0 i686) 
Netscape6/6.0 

Accept: */* 

Accept-Language: en 

Accept-Encoding: gzip,deflate,compress,identity 

Keep-Alive: 300 

Connection: keep-alive 


Ráspunsul 


HTTP/1.0 200 OK 

Date: Fri, 15 Dec 2001 14:30:31 GMT 

Server: Apache/1.3.14 

Last-Modified: Wed, 29 Nov 2001 17:33:14 GMT 
Accept-Ranges: bytes 

Content-Length: 1503 

Content-Type: text/html 

Connection: keep-alive 
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«html» 
«head» 
«title»Main Home Page</title> 
«/head» 
«body» 


«/body» 
«/html» 


3.3. Identificatori uniformi de resurse (URI) 


Pentru transferul documentelor hipertext, acestea trebuie adresate într-un mod 
uniform, independent de sistemul de stocare şi de convențiile rețelei. Modalitatea 
de adresare folosită pe Web este reprezentată de identificatorii uniformi de resurse. 


Ceea ce este deseori denumit adresă WWW, identificator universal de 
documente sau localizator uniform de resurse este unificat, în terminologia din 
mediul Internet, într-un singur cuvânt: identificator uniform de resursă (URI — 
Uniform Resource Identifier) şi reprezentat într-o formă unică şi consistentă. 


Mulțimea URI este partajată în două submulțimi importante: URL (Uniform 
Resource Locator) şi URN (Uniform Resource Name). 


URL-ul este folosit in localizarea unei resurse in refea (in special in Internet) 
prin protocolul HTTP. Sintaxa URL pentru Web este: 


"http:" "//" server | ":" port ][| cale absoluta | "?" interogare ]] 


Dacá nu este specificat explicit, portul este considerat a fi portul 80. Semantica 
unui URL este următoarea: resursa se află pe un server, identificat prin server, 
care „ascultă” eventuale cereri de conectare la portul specificat sau implicit; resursa 
este identificată prin ca1e absolutà, iar interogarea este transmisă pentru a obține 
un răspuns dinamic de la server, în sensul parametrizării cererii. În general, trebuie 
evitată folosirea drept server a adresei IP (e.g. 193.231.30.225) în favoarea 
folosirii numelui simbolic asociat acesteia (i.e. www. infoiasi.ro). Calea absolută 
reprezintă un şir de nume de directoare delimitate de caracterul ,/", eventual 
terminat cu numele fişierului care stochează resursa adresată prin intermediul 
URL-ului. Componenta interogare este un şir de informaţii interpretate de 
resursă, caracterele ,,; "S PN pnis 


^" 


2/7, S27, si, S087, SE, ums ues uu gl us" fiind rezervate, 


Cáteva exemple de URL-uri: 
e  http://www.linux.org 
e  http://students.infoiasi.ro/-stanasa/ 
e  http://193.231.30.225/£cs/en/contact.html 


e http://www.altavista.com/cgi-bin/query?pg-q&what-web&q-Dali 
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Un URN desemneazá un subset al URI care rámáne permanent si unic, chiar 
dacă resursa a dispărut ori a devenit inaccesibilă. URN-ul se utilizeazá mai ales 
pentru a desemna entitáti folosite de anumite aplicatii Web. Ca exemple de 
URN-uri putem da: 


e  urn:infoiasi.ro:BookInfo 
ə  urn:mozilla:package:communicator 


e urn:schemas-microsoft-com:datatypes 


Într-un context mai general, URI-urile pot desemna resurse care să poată fi 
accesate prin intermediul protocoalelor TCP/IP. Astfel, forma generică a unui 
identificator uniform de resurse prezintă următoarele componente principale: 


schema "://" autoritate cale "?" interogare 


Componenta schema identificá modalitatea de identificare a protocolului de 
transfer utilizat pentru a avea acces la o anumită resursă. Celelalte componente sunt 
similare celor descrise mai sus. 


Ca exemple de scheme se pot enumera: 


+  teinet://ăelta.ac.tuiasi.ro:7777 — schemă felner pentru servicii 
interactive via protocolul TELNET; 


e  mailto:mituceac.tuiasi.ro — schemă mailto pentru posta electronică 
(se utilizează de obicei protocolul de transfer SMTP); 


e  news:comp.infosystems.www.servers.unix ~ schemá news pentru 


grupurile de stiri USENET (NNTP); 


e ftp://ftp.funet.fi/pub/README.txt — schemă fip pentru serviciile 
protocolului de transfer de fişiere (FTP); 


e http://www.infoiasi.ro/-busaco/teach/ ~ schemă hip pentru 
serviciile protocolului de transfer hipertext (HTTP). 


3,4. Codificarea conținutului 


Pentru ca datele să fie corect interpretate, indiferent de platforma hardware şi 
software, ele trebuie să respecte aceeaşi codificare pe Web. Este definit conceptul 
de ser de caractere, pentru a putea interpreta corect datele schimbate utilizând 
protocolul HTTP între două platforme diferite, cu reprezentări diferite ale datelor — 
cum ar fi, de exemplu, un mediu MS Windows care interacționează cu un mediu 
UNIX/Linux sau un calculator Apple Macintosh care doreşte să transfere resurse 
deţinute de o staţie Silicon Graphics. Astfel, informaţia este transmisă în forma 
unui şir de caractere, urmând ca entitatea de la celălalt capăt, folosind indicațiile 
despre setul de caractere, să realizeze transformarea din şir de octeți in sir de 
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caractere. Setul de caractere implicit este ISO-8859-1, dar există o multitudine de 
alte seturi (de exemplu, ISO-8859-2, denumit si Latin-2, care oferă printre altele si 
reprezentarea diacriticelor din limba română). 
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[text/plain 
text/html 


edel i din maree nnl 


"image/jpeg ii 
image/png i 


| defineşte formatele grafice 


^ laudio/basic 
defineşte formatele audio | audio/aiff 
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imultipart /mixed 
imultipart /alternative 


Tipurile sau subtipurile MIME nestandardizate încă vor fi prefixate de 
caracterele „x-”. Astfel, putem întâlni image/x-xbitmap (format grafic XBM 
folosit de mediul XWindow) sau x-world/x-vrml (lume virtuală modelată în 
VRML; acest tip MIME este înlocuit în prezent de mode1/vzrm1). 


De asemenea, mesajele pot fi codificate, conform JANA (Internet Assigned 
Numbers Authority), în vederea comprimării sau asigurării identității şi/sau 
integrității. De exemplu, sunt permise codificările: 


e gzip — codificarea Lempel-Ziv (LZ77) folosită de programul de arhivare cu 
acelaşi nume, disponibil în mediile UNIX/Linux; 


e compress — o codificare Lempel-Ziv-Welch (LZW) utilizatá de cátre 
utilitarul de arhivare cu acelaşi nume, întâlnit pe platformele UNIX. 
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3.5. Mesajele HTTP 


Cererile şi răspunsurile HTTP sunt vehiculate prin intermediul mesajelor. Astfel, 
mesajele HTTP sunt considerate de două tipuri: cerere de la client către server $1 
răspuns al serverului către client. Ele reprezintă entităţile generice din comunicarea 
HTTP, un mesaj având la prima vedere următoarea formă: 

Mesaj HTTP = 

linie de start 

(atribut de antet)* 

CRLF 

| conținut mesaj ] 


Linia de start este numită linie de cerere sau linie de stare în cazul cererii, 
respectiv al răspunsului. Meta-caracterul „*” desemnează faptul că numărul de 
apariţii poate fi nul, unu sau oricare, iar cRLF reprezintă secvența de caractere 
Carriage Return (codul 13) şi Line Feed (codul 10). Construcția t. . . ]" indică o 
aparitie optionalá a expresiei dintre parantezele drepte. 


În descrierea de mai sus, atribut de antet formează partea de început de 
mesaj, denumit antet (header). Un antet conține mai multe atribute care sunt 
folosite la completarea unei cereri sau a unui răspuns cu meta-informaţia necesară 
interpretării corecte a mesajului prin stabilirea unor valori specificate de către 
protocolul HTTP sau a unor protocoale definite de utilizator (de exemplu, SOAP — 
Simple Object Access Protocol). Fiecare atribut conţinut în antet este de forma: 


Atribut de antet = nume atribut ":" [ valoare atribut ] 


Ordinea acestora nu este semnificativă, dar este indicat să se trimită mai întâi 
atributele generale (folosite, de obicei, atât pentru cerere, cât şi pentru răspuns), 
apoi atributele specifice tipului respectiv de mesaj, iar la sfârşit cele specifice 
entității cuprinse în conţinutul mesajului. 


Corpul mesajului HTTP conține entitatea asociată cererii sau răspunsului; de 
multe ori reprezentând chiar resursa din linia de antet a cererii. Corpul unui mesaj 
poate să lipsească (el chiar trebuie să lipsească dacă metoda din cerere o impune). 
Prezența corpului mesajului este de obicei semnalizată prin prezența în antetul 
HTTP a unor atribute referitoare la acesta: Content-Length Sau Transfer- 
Coding. Lungimea unui mesaj este considerată lungimea întregului corp, după 
aplicarea conţinutului initial al unor eventuale codificári. 


Mesajul de tip cerere (Request) 


Forma generală a unui mesaj de tip cerere este: 
Cerere HTTP = 
linie-de-cerere 
(antet-general | antet-cerere | antet-entitate)* 


20 PROGRAMARE WEB ÎN BASH ŞI PERL 


CRLF 
| corpul-mesajului ] 


Linia de cerere începe cu numele metodei folosite, urmat de identificatorul 
resursei căreia i se adresează cererea (URI) si de versiunea protocolului (e.g. 
HTTP /1,1), 


Linie de cerere = Metoda SP Identificatorul-resursei SP Versiunea- 
HTTP CRLF 


Trebuie precizat si faptul cá secventa CRLF trebuie sá apará in intregime, iar 
prezența separată a unuia dintre octetii reprezentând CR sau LF este interzisă pe 
parcursul liniei de cerere. SP desemnează un spaţiu alb (blank). 


Metoda cererii este indicată la începutul liniei de cerere şi reprezintă acţiunea 
care va fi întreprinsă în raport cu resursa specificată de către URI. De regulă, 
metoda este case-sensitive (de obicei precizată cu majuscule), iar metodele permise 
de specificatia HTTP/1.1 sunt următoarele: OPTIONS, GET, HEAD, POST, PUT, 
DELETE, TRACE şi CONNECT. Există de asemenea posibilitatea folosirii altor 
metode, nestandardizate, atât timp cât ele pot fi identificate de către toate părțile 
comunicării. 


Cele mai utilizate metode HTTP sunt: 


* GET 


Reprezintă o cerere de accesare a unor informaţii (entităţi). Un client 
HTTP (navigator, robot, program de descărcare etc.) foloseşte metoda GET 
pentru a obține o anumită resursă, fie că ea reprezintă un fişier (document 
text, HTML, imagine GIF sau JPEG, aplicaţie, arhivă etc.), fie că indică 
execuţia pe serverul Web a unui proces care va produce datele dorite (e.g. 
invocarea unui script CGI). 


e HEAD 


Este similară cu metoda GET, dar serverul va returna un mesaj având 
informaţii doar în antet. Meta-informajiile din anteturile HTTP din răs- 
punsul la o cerere HEAD vor fi identice cu cele din răspunsul la o cerere 
GET. Utilitatea acestei metode constă în obținerea meta-informatiei 
asociate unei resurse Web fără a transfera efectiv întreaga entitate, în 
vederea testării existenţei resursei, a obținerii datei ultimei modificări sau 
furnizarea drepturilor de acces. 


o POST 


Metoda este utilizată pentru a identifica dacă serverul acceptă o entitate 
înglobată în cadrul cererii. POST este proiectată să implementeze o metodă 
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uniformá pentru functii precum adnotarea resurselor, trimiterea datelor 
unui formular Web cátre server, extinderea unei baze de date printr-o 
operatiune de inserare etc. 


ə» OPTIONS 


Reprezintă o cerere de informații despre opțiunile de comunicare 
disponibile într-un dialog HTTP cerere/răspuns. Această metodă are rolul 
de a oferi unui client posibilitatea de a achiziționa informații despre o 
resursă de pe un server sau chiar despre un server sau server proxy, fără a 
implica o acțiune directă asupra unei resurse (de exemplu, în vederea 
negocierii transmiterii de date). 


» DELETE 


Reprezintá o cerere de stergere a unei resurse stocate de serverul Web. 


e» PUT 


Specifică faptul că o entitate inclusă în mesajul HTTP va fi memorată la o 
adresă desemnată de un identificator uniform de resurse. Diferenţa între 
PUT şi POST este reflectată de modul diferit de manipulare a adresei URI. 
Într-o cerere de tip POST, URI identifică resursa care va prelucra entitatea 
înglobată de mesajul HTTP. Prin contrast, URI dintr-o metodă PUT va 
identifica entitatea inclusă în mesajul de cerere, o resursă putând fi 
identificată de URl-uri multiple, 


Observaţii 


e O metodă este considerată sigură dacă ea nu implică riscuri asupra securității 
serverelor sau clienţilor din Internet prin natura informaţiilor transmise $i a 
acţiunilor pe care le determină. Practic, aplicaţia HTTP reprezintă utilizatorul 
în domeniul Internet şi trebuie să se asigure că nu permite propagarea 
informaţiilor private despre acesta, eventual doar cu acordul său, obținut prin 
configurări sau chiar în mod interactiv, în momentul apariţiei riscului. 


Metodele considerate sigure sunt GET şi HEAD, deoarece semantica asociată 
lor priveşte doar obținerea unor resurse sau informaţii despre resurse şi nu ar trebui 
să implice efectuarea unor acţiuni diverse. Spre deosebire de acestea, metodele 
POST, PUT şi DELETE prezintă facilităţi pentru utilizator de a trimite informații 
specifice către serverul HTTP, de aceea se recomandă implementarea unor sisteme 
de avertizare asupra riscurilor si eventuala acceptare a acestora. 


Trebuie precizat faptul că si în cazul folosirii metodei GET se pot genera efecte 
secundare la nivelul serverului (programarea la nivelul serverului are la ora actuală 
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un rol foarte important în dezvoltarea siturilor Web, prin posibilitatea generárii 
dinamice a documentelor). 


e Dacă efectele secundare ale unor cereri succesive folosind aceeaşi metodă 
sunt aceleaşi ca în cazul unei singuri cereri de acest fel, atunci metoda se 
consideră a fi idempotentă. Metodele GET, HEAD, PUT şi DELETE sunt 
metode idempotente îndeplinind condiţiile de mai sus, iar metodele 
OPTIONS şi TRACE sunt de asemenea idempotente, semantica lor 
înlăturând orice fel de efecte secundare. 


e Un server poate oferi clienţilor săi o listă cu metodele pe care le suportă, în 
câmpul de antet Allow. În cazul în care serverul nu cunoaşte metoda, el 
trebuie să returneze un cod de stare 405 (Method Not Allowed), iar dacă 
serverul cunoaşte metoda dar nu o implementează, va returna codul 501 
(Not Implemented). Metodele GET şi HEAD trebuie implementate de cátre 
orice server HTTP, celelalte fiind opţionale, cu condiția ca o eventuală 
implementare a acestora să reflecte semantica prevăzută şi descrisă de 
specificaţiile HTTP. 


Un exemplu de linie de cerere care se adresează unui proxy (folosind un URI dat 
în forma absolută) este următorul: 


GET http://students.infoiasi.ro/-stanasa HTTP/1.1 


Cel mai frecvent mod de a specifica o resursá este prin calea absolutá páná la 
aceasta, avánd adresa Internet specificatá ca valoare a atributului Host. Un 
exemplu de cerere în vederea obținerea resursei /pub/index.html de pe serverul 
studenţilor de la Facultatea de Informatică din lași se va formula, după stabilirea 
conexiunii TCP pe portul 80 al mașinii students. infoiasi.ro, astfel: 


GET /pub/index.html HTTP/1.1 
Host: students.infoiasi.ro 


Calea absolută nu poate fi vidă — ea trebuie să conțină cel puţin caracterul ,,/", 
care reprezintă documentul rădăcină, orice descriere invalidă a resursei fiind 
semnalată printr-un cod de stare corespunzător. 


Pot fi specificate atribute de cerere, care sunt folosite pentru a transmite 
informaţii suplimentare despre acea cerere şi despre client. Se poate face o analogie 
între trimiterea unei metode HTTP cu apelul unei funcții dintr-un limbaj de 
programare, unde atributele reprezintă parametrii de intrare. Câteva dintre aceste 
atribute specifice cererii sunt: Accept, Accept-Encoding, Authorization, From, 
Host, Proxy-Authorization, Referer Sau User-Agent. 


Mesajul de tip răspuns (Response) 


După primirea unui mesaj de tip cerere şi interpretarea lui, un server HTTP 
răspunde cu un mesaj denumit răspuns. Forma generală a acestuia este: 
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Răspuns HTTP = 

linie-de-stare 

tantet-general | antet-cerere | antet-entitate)* 

CRLF 

[ corpul-mesajului ] 

Linia de stare începe cu versiunea protocolului HTTP implementat de către 
server şi continuă cu un cod de stare reprezentând un număr asociat de către 
specificația HTTP unei anumite situaţii a serverului în urma tratării unei cereri. 
Urmează un text explicativ pentru codul de stare care nu trebuie să fie strict; el 
poate fi decis o dată cu implementarea propriu-zisă, dar este indicat să clarifice 
situația exprimată de codul de stare: 


Linie-de-stare = Versiune-HTTP SP Cod-stare SP Text-Explicativ CRLF 
Codul de stare este format din trei cifre organizate în categorii de stări, astfel 


încât codurile din aceeaşi categorie se referă la stări similare; ele sunt distinse după 
prima cifră, în modul următor: 


e Ixx: Informativ — cererea a fost primită, comunicaţia continuă; 


e  2xx Succes — cererea a fost primită, interpretată şi acceptată de către 
server; 


e  3xx: Redirecționare — pentru a atinge scopul cererii, este nevoie de o 
interogare ulterioară, eventual către un alt server; 


e  4xx: Eroare provocată de către client — fie cererea este incorectă din punct 
de vedere sintactic, fie nu poate fi satisfăcută; 


e  5xx: Eroare provocată de către server — cererea este aparent corectă, dar 
serverul nu o poate îndeplini din diferite motive. 


Textul explicativ este introdus pentru a oferi o informaţie suplimentară, putând 
fi de folos dezvoltatorilor de aplicații Web, cum ar fi programarea la nivelul 
serverului HTTP prin diferite tehnologii ca CGI, PHP sau Java Servlet. 


Lista completă a codurilor de stare specificate de HTTP/1.1, împreună cu textul 
explicativ în limba engleză, este prezentată mai jos: 


100 Continue 404 Not Found 

101 Switching Protocols 405 Method Not Allowed 

200 OK 406 Not Acceptable 

201 Created 407 Proxy Authentication Required 
202 Accepted 408 Request Time-out 

203 Non-Authoritative Information 409 Conflict 

204 No Content 410 Gone 

205 Reset Content 411 Length Required 

206 Partial Content 412 Precondition Failed 

300 Multiple Choices 413 Request Entity Too Large 
301 Moved Permanently 414 Request-URI Too Large 

302 Found 415 Unsupported Media Type 

303 See Other 416 Requested range not satisf. 
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304 Not Modified 417 Expectation Failed 

305 Use Proxy 500 Internal Server Error 

307 Temporary Redirect 501 Not Implemented 

400 Bad Request 502 Bad Gateway 

401 Unauthorized 503 Service Unavailable 

402 Payment Required 504 Gateway Time-out 

403 Forbidden 505 HTTP Version not supported 


Codurile de eroare ale protocolului HTTP 


De asemenea, prin intermediul atributelor specifice ráspunsurilor HTTP, se pot 
transmite informaţii adiționale. Câteva dintre atributele specifice răspunsurilor sunt 
următoarele: Location, Server sau WWW-Authenticate (vezi mai jos). 


3.6. Conexiunile HTTP 


Înainte de a apărea conceptul de conexiuni persistente, pentru fiecare ciclu 
cerere-răspuns se stabilea o nouă conexiune TCP, mărind astfel gradul de încărcare 
a serverelor HTTP şi contribuind la apariția congestiei datelor. Spre exemplu, în 
cazul unor pagini Web conţinând numeroase imagini, va fi nevoie de o cerere 
pentru fiecare resursă grafică şi, implicit, de o conexiune pentru fiecare la intervale 
de timp foarte mici. Experienţa unor implementări folosind diferite tipuri de 
conexiuni a demonstrat o comportare mai bună în cazul conexiunilor persistente, 
mai ales când în lanţul conexiunilor apar intermediari. 


Versiunea HTTP/1.1 oferă suport în mod implicit pentru conexiuni, întreruperea 
acestora făcându-se dacă este indicată explicit de la celălalt capăt al comunicației. 
Conexiunile persistente sunt folosite chiar si în cazul transmiterii unor mesaje de 
eroare. 


În scopul semnalizării întreruperii sau menținerii conexiunii TCP, este prevăzut 
un mecanism care constă în adăugarea atributului Connection în antetul HTTP. 
Serverele care utilizează conexiuni persistente au de obicei specificat un timp 
maxim de aşteptare (rime-our) pentru a putea elibera resursele păstrate de o 
conexiune inactivă. Un proxy poate lua în considerare probabilitatea foarte mare ca 
un client să facă mai multe conexiuni, la intervale variabile de timp şi folosind 
acelaşi server proxy. Astfel, în funcţie de încărcare şi scop, un server (sau server 
proxy) poate stabili acest time-out, neexistând restricții specificate strict. În situaţia 
unui client sau server care doreşte să închidă conexiunea, se va proceda la 
semnalarea acestui fapt, pentru a limita numărul de ambiguitáti care se pot ivi în 
practică şi pentru a elibera imediat resursele ocupate de către conexiuni. | 


3,7. Atributele HTTP 


Vom descrie in continuare o serie de atribute vehiculate fn cadrul cererilor sau 
ráspunsurilor HTTP. 
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l. Accept 


Este un atribut specific unei cereri HTTP si are un rol important in stabilirea 
tipului conținutului prin intermediul unei negocieri conduse de server. Prin 
intermediul acestui atribut, clientul are posibilitatea de a specifica tipurile media pe 
care acesta le recunoaşte şi le poate interpreta sau poate indica numai tipul de 
răspunsuri preferate. 


Sintaxă: 


Accept = "Accept" ":" | tip media [parametri] )* 
Sintaxa tipurilor media poate fi: 
e tip media iz ("*/*") | (tip „un "xuy | (tip "n subtip) 


e parametri = ";" "q" "=" qval (extensie) * 


Caracterul „*” este folosit pentru a specifica un grup de tipuri folosind 
convențiile MIME prezentate mai sus: „*/*” reprezintă toate tipurile media, iar 
„tip/*” — toate subtipurile MIME ale tipului specificat de construcţia tip. Fiecare 
tip media poate fi urmat de unul sau mai mulți parametri, începând cu parametrul 
„a”, denumit calitate relativă (relative quality), care permite asocierea unei calități 
relative pe o scală de la 0 la 1 a acestuia. 


Un exemplu: Accept: image/*; q-0.2, image/jpeg care specifică preferința 
pentru tipul MIME image/jpeg, iar dacă acest tip nu este disponibil, atunci se 
poate returna orice tip de imagine. 


2. Authorization 


Un client care doreşte să se autentifice, în general după primirea unui răspuns de 
tip 401 (Unauthorized), trebuie să includă în cerere atributul authorization având 
ca valoare informaţia necesară autentificării. 


Sintaxă: 


Authorization = "Authorization" ":" informatie de autentificare 


Ín general, dupá ce un client se autentifică la un server şi obține autorizatiile 
necesare, acestea ar trebui sá fie valabile si pentru urmátoarele cereri necesare 
parcurgerii unei prezentári pentru o perioadă de timp determinată. 


3, Connection 


Este un atribut general folosit pentru a specifica anumite proprietăți legate de 


conexiune (în general TCP/IP) si se aplică doar comunicaţiei între două aplicaţii 
HTTP din lanţul unor cereri sau răspunsuri. 


O proprietate specifică acestui atribut este ,close" şi semnalează închiderea 
conexiunii după trimiterea mesajului. Acest atribut este util în implementarea 
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conexiunilor persistente şi. indică (fie că este cuprins in cerere sau răspuns) 
întreruperea conexiunii după încheierea ciclului cerere-răspuns actual. 


4. From 


Conţine o adresă e-mail, in general a utilizatorului aplicației HTTP client, si are 
sintaxa: 


From - "From" ":" e-mail 


Valoarea acestui atribut poate fi folosită pentru înregistrarea accesului in 
fişierele-jurnal (log-urile) ale serverului HTTP, în scopul identificării cererilor 
invalide sau respinse. Trimiterea acestei informaţii nu este considerată o problemă 
de securitate, fiind mai degrabă utilă pentru detectarea cererilor efectuate sub alt 
nume sau în cazul roboților Web pentru posibilitatea contactării persoanelor 
responsabile la apariția unor anomalii de funcționare. 


5. Host 


Atribut folosit pentru specificarea adresei Internet şi a portului în vederea 
stabilirii exacte a locației unde se află resursa căreia i se adresează cererea. Acest 
atribut trebuie inclus în orice cerere HTTP/1.1 şi trebuie să reflecte întocmai 
identitatea serverului-origine sau a porții indicate în URL-ul originar şi are rolul 
îndepărtării posibilelor ambiguități. 

Sintaxă: 


Host = "Host" ":" adresa Intenet | ":" port ] 


Pentru un URI de genul nttp: / /www.infoiasi.ro/fcs.css, Cererea trebuie să 
conțină: 


GET /fcs.css HTTP/1.1 
Eost: www.infoiasi.ro 


În HTTP/1.1, prezenţa atributului Host este obligatorie chiar si cu o valoare 
vidă; un proxy HTTP/1.1 trebuie să verifice dacă fiecare cerere include acest 
atribut. Serverele HTTP/1.1 trebuie să răspundă de fiecare dată cu codul de stare 
400 (Bad Request) la cererile HTTP/1.1 care nu contin atributul Host. 


6. Location 


Acest atribut specific răspunsurilor HTTP este utilizat în conjunctie cu coduri de 
stare de tip 3xx (prin care se indică proprietăți ale locației curente a resursei) sau 
201 (Created). În ambele situaţii, se poate stabili locaţia curentă sau preferată a 
resursei sub forma unui URI absolut. 

Sintaxă: 

Location = "Location" ":" URI absolut 

Iatá un exemplu: 


tocation: http: Vvww.infoiasi.ro/-busaco/cv.html 


7. Referer 


Prin intermediul acestui atribut, clientul poate specifica, în interesul serverului, 
URL-ul de la care resursa a fost obţinută. Spre exemplu, dacă într-un document 
HTML există o legătură spre alt document, clientul poate include în cererea pentru 
al doilea document ca Referer URI-ul prin care s-a obținut documentul iniţial. 


Sintaxă: 


Referer = "Referer" ":" (URI_absolut i URI relativ) 


Un exemplu: 


Referer: http://students.infoiasi.ro/-bcv/tai/referat.html 


8. Server 
Conţine informaţii despre aplicaţia server — cum ar fi numele, versiunea, 
producătorul, aplicaţiile compatibile. Este posibilă includerea informaţiilor si a 
comentariilor mai multor aplicaţii care deservesc cererile la nivelul serverului 
HTTP. 


Sintaxá: 


Server = "Server" ":" (aplicatiel comentarii)* 


Exemplu: Server: JWebServer/1.0 [Sun Solaris]. 


9. wwW-Authenticate 


Atributul wwW-Authenticate trebuie inclus în orice cerere 401 (Unauthorized) 
pentru a oferi aplicaţiei-utilizator informaţii necesare autentificării în raport cu 
resursa cerută. Atributul complementar acestuia pentru cerere este Authorization. 


n 


WWW-Authenticate = "WWW-Authenticate" ": 
(informatie de autentificare)* 


4. Limbajele de marcare si aplicatiile lor 


4.1. Caracterizare 


Atunci când discutăm despre marcarea informaţiilor pe Web, trebuie implicit să 
ne referim la (revoluția XML. 


Ca şi SGML, din care se trage, XML (Extensible Markup Language) repre- 
zintă un standard internaţional pentru descrierea de marcaje (markups) ale textelor 
electronice disponibile pe Web. În fapt, XML reprezintă un meta-limbaj, o 
descriere formală a unui limbaj — în acest caz, un limbaj de adnotare (de marcare) a 
datelor. Prima versiune a specificaţiei XML a fost standardizată în 1998 de către 
Consorţiul Web, fiind revizuită în octombrie 2000. 
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XML reprezintă o metodă de descriere universală a informaţiei astfel încât atât 
computerele, cât mai ales oamenii să o poată înţelege. Scopurile limbajului au fost 
cele legate de utilizarea lui în Internet, suportând o varietate de aplicaţii, păstrând 
compatibilitatea cu vechiul SGML, dar fiind mult mai flexibil decât HTML. 


4.2. Ce este XML? 


Desi tehnologiile XML si HTML (HyperText Markup Language) au ca strămoș 
comun meta-limbajul SGML, ele sunt complet diferite. Limbajul HTML este 
simplu de învățat şi poate fi utilizat pe multe platforme, fiind considerat universal. 
Foarte bun în a afişa informaţii pe Web, HTML nu reprezintă soluția potrivită 
pentru a le descrie. Din acest motiv, s-a ajuns la XML: o metodă universală pentru 
a reprezenta, a descrie informaţii hipertext. Din acest punct de vedere, XML poate 
fi văzut ca o tehnologie complementară limbajului HTML, nu ca o înlocuire a sa. 


De exemplu, dacă am considera un fragment de document HTML utilizat pentru 
a stoca informaţii dintr-o listă privitoare la partenerii de afaceri, acesta ar putea 
avea forma: 
<p>Partener:</p> 
«p»Nume: <b>Stefan Ciprian Tanasa</b></p> 
<p>Adresa: «i»Str. Berthelot, 16 ~ Iaşi</i></p> 
«p»Telefon: 032-201090«/p» 
«p»E-mail: «tt»stanasaQinfoiasi.ro«/tt»«/p» 


Din perspectiva unui calculator (a unei aplicatii de prelucrare a acestor 
informaţii), nu există nici o indicatie asupra faptului cá informaţia ar fi structurată. 
În schimb, considerând aceeaşi informaţie reprezentată prin XML, fragmentul de 
document ar putea arăta în felul următor: 


<partener> 
<nume>Stefan Ciprian Tanasa</nume> 
«adresa»Str. Berthelot, 16 - Ilaşi</adresa> 


<telefon>032-201990</telefon> 
<email>stanasatinfoiasi.ro</email> 
</partener> 


Dacă fragmentul de document HTML de mai sus indică mai mult modalităţile de 
afişare a datelor (forma), documentul XML descrie structura lor (putem afirma că 
este vorba de un partener de afaceri, pentru el memorând numele şi diverse maniere 
de contact). Cunoscând structura datelor, se pot executa diferite operaţii asupra 
acestora (e.g. afişarea doar a numelor de parteneri, trimiterea de felicitări tuturor 
partenerilor din laşi, generarea unui tabel conținând numerele de telefon etc.). 


Familia XML 


Limbajul XML oferă mai mult decât o sintaxă comodă pentru reprezentarea 
datelor structurate sau semistructurate. XML constă într-o familie de limbaje 
bazate ne NML pentru reprezentarea datelor și relațiilor dintre ele. 
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Această familie de limbaje, menite a adapta conceptele curente de publicare a 
documentelor la Internet, este compusă din: 


e XML (Extensible Markup Language) — subset al specificației SGML, 
conceput pentru o implementare mai uşoară. 


e XLL (Extensible Linking Language) — set al mecanismelor hipertext 
bazate pe standardele HyTime şi Text Encoding Initiative, concretizat în 
două componente majore: 


e XLink — conceput pentru descrierea legăturilor dintre obiectele 
stocate în Internet; 


e XPointer — compus dintr-o serie de termeni de localizare relativi la 
alte locaţii. 


Aceste două limbaje sunt recomandări oficiale ale Consorţiului Web începând 
cu anul 2000. 


e XSL (Extensible Stylesheet Language) — limbaj standard al foilor de stil, 
ca subset al DSSSL, permiţând ataşarea de semantici elementelor XML şi 
transformarea documentelor XML în alt tip de documente (XML, 
XHTML, MathML etc.). XSL este recomandarea Consortiului Web din 
luna octombrie 2001. 


e XUA (XML User Agent) — direcţie de standardizare a navigatoarelor 
XML. 


De asemenea, există o multitudine de aplicaţii bazate pe XML, dintre care se pot 
enumera limbaje pentru: 


e reprezentarea expresiilor matematice (MathML); 
e descrierea resurselor Internet (RDF — Resource Description Framework); 


e realizarea de prezentări multimedia sincronizate (SMIL — Synchronized 
Multimedia Integration Language); 


e reprezentarea şi interschimbarea informaţiilor referitoare la afaceri pe Web 
(BRML — Business Rules Markup Language); 


e transferul de date in medii mobile (WML — Wireless Markup Language); 
e descrierea serviciilor Web (WSDL — Web Services Description Language). 


Pentru amănunte privind familia si aplicaţiile XML, cititorul interesat este 
îndemnat să consulte bibliografia. 
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4.3, Structura documentelor XML 


Un document XML este format din marcaje (reprezentate de tag-uri) şi date 
caracter. Termenul marcaj (markup) a fost folosit iniţial pentru a descrie anumite 
adnotări, note marginale în cadrul unui text cu intenția de a indica 
tehnoredactorului cum trebuie formatat ori listat un anumit pasaj. Generalizând, 
putem defini marcajul drept orice acţiune de a interpreta explicit o porţiune de text. 
Un marcaj este un sir de caractere delimitat de caracterele „<” şi „>”. Datele 
caracter reprezintă conținutul propriu-zis al marcajelor. 


În XML, spre deosebire de HTML, marcajele nu sunt folosite pentru afişarea 
datelor conţinute, ci au alte scopuri, printre care se pot enumera următoarele: 


e asigură o sintaxă simplă şi standardizată pe care analizoarele (proce- 
soarele) XML o pot folosi pentru a utiliza informaţia stocată; 


e oferă o metodă de a descrie structura ierarhică a conținutului prin divizarea 
informaţiei (datele caracter) în părți numite elemente, care pot avea ataşate 
proprietăți particulare desemnate de atribute. Structura ierarhică a 
întregului document este pusă în evidență prin utilizarea marcajelor. 


Un document XML poate fi împărțit în trei secțiuni generale de colecţii de 
marcaje: 


e Prolog 
e Declaraţia tipului de document 


e Elementul rădăcină 


Fiecare dintre aceste secțiuni poate fi mai departe divizată în structuri mai 
detaliate. 


Există mai multe tipuri de marcaje care pot fi folosite într-un document XML, 
cele mai importante fiind: tag-ul de început si tag-ul de sfârşit ale unui element, 
atributele unui element, comentariile, referintele la entități şi declaraţia tipului de 
document. 


Elemente 


Elementele reprezintă blocurile de bază ale unui document XML (sau SGML). 
Pot fi folosite atât pentru a conține informaţii, cât şi pentru definirea structurii. Un 
element începe cu un tag de start şi se termină cu un fag de sfârşit. Tag-ul de 
început este desemnat de un singur cuvânt — numele elementului — "delimitat de 
caracterele ,,«"gi „>” (nu sunt permise spaţiile albe). De exemplu, în HTML, «n1» 
este rag de start al elementului hi, lar </n1> reprezintă tag-ul de sfârşit al acestuia. 
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Spre deosebire de HTML, limbajul XML este case sensitive (literele minuscule 
diferind de cele majuscule) — din acest motiv, urmátoarele exemple sunt gresite: 
<tag>exemplu</TAG> Sau <Tag>exemplu</tag>. De asemenea, numele unui 
element nu poate începe cu un număr şi nici nu poate conţine spaţii. 


Elementele nu sunt folosite doar pentru a conține informaţii, ci şi pentru a pune 
în evidență structura documentelor XML, după cum se poate remarca din 
următorul exemplu: 

«parteneri» 

«partener» 

«nume»Stefan Ciprian Tanasa</nume> 

<adresa> 
«localitate»Iagi«/localitate» 
«strada»Berthelot«/strada» 
<numar >16</numar> 

</adresa> 

«telefon»032-201090«/telefon» 

«email»stanasaginfoiasi.ro«/email» 

«/partener» 
«/parteneri» 


Prin utilizarea acestor elemente imbricate, datele sunt mai bine organizate, 
facilitând eventualele operaţii de căutare, afişare sau sortare a datelor. În XML pot 
fi folosite şi elementele vide (care nu conțin nimic), dar care au o sintaxă aparte. 
Dacă, de exemplu, o persoană nu are număr de telefon, putem scrie 
«telefon»«/telefon» sau «telefon />, ambele variante fiind corecte. Este 
respectată astfel regula cu privire la faptul că în XML fiecare rag deschis trebuie 
obligatoriu închis. 


Atribute 


Atributele au rolul de a descrie elementele. Putem face o analogie între atribute 
(descriind elemente) şi adjective (care descriu substantive). Atributele sunt 
localizate în tag-ul de start al unui element, imediat după numele elementului 
(acum este evident de ce nu pot exista spaţii albe în numele unui element), sunt 
urmate de „=”, apoi de valoarea atributului, scrisă între ghilimele. Dacă valoarea 
unui atribut nu este specificată între ghilimele, va fi semnalată o eroare, la fel ca şi 
în cazul în care pentru un atribut nu ar fi ataşată şi valoarea acestuia. Pentru un 
element pot exista oricâte atribute, atât timp cât sunt declarate corect. 


Un exemplu incorect este <localitate codpostal-6600», în care valoarea 
atributului nu este dată între ghilimele. Varianta corectă este <localitate 
coâpostal="6600">. 


Comentarii 


» 


Comentariile se specifică la fel ca si în HTML, apărând între „<! --” și „=>. 
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Un exemplu de comentariu: 


«!-- Actionar principal --» 


Construcţia ,,- -" nu trebuie să apară în interiorul comentariilor. Nu există limite 
în ceea ce priveşte lungimea comentariilor. 


O altă utilitate a comentariilor este de a include în interiorul lor elemente pe care 
dorim ca procesorul XML să le ignore. 


Referinţe la entități 


Referințele la entități sunt de fapt pointeri către entități. În XML, entitățile 
reprezintă unităţi de text, unde o unitate poate fi orice, de la un singur caracter la un 
întreg document sau chiar o referinţă la un alt document. 


Sintaxa referintelor la entităţi este: &nume_entitate; (caracterul „&”, urmat de 
numele entității, apoi de caracterul „;”). Una dintre cele mai frecvente utilizări ale 
referintelor la entităţi este atunci când se doreşte folosirea unor caractere care ar 
duce la apariţia unor confuzii pentru analizorul XML şi deci care nu ar trebui să 
apară în forma lor normală în text. În momentul în care se întâlneşte referința la o 
entitate în document, aceasta se va substitui cu datele pe care le referă şi se va 
returna documentul cu înlocuirile făcute. 


Tabelul de mai jos ilustrează entităţile predefinite de specificatia XML: 


,&qmuot; |. | 


Exemple 


Documentele XML pot stoca informatii structurate sau semistructurate care 
ulterior se pot prelucra într-o manieră comodă, 


Astfel, o bază de date simplă poate fi memorată ca fişier XML astfel (desigur, 
această abordare nu este unică): 


<tabela> 
<inregistrare id-"0001"'» 
<campl tips" r"»valoarea 1-1</campl> 
«camp2 tip= icter"»valoarea 1-2«/camp2» 
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«!-- mai multe campuri --> 

</inregistrare> 

<inregistrare id-"0002"» 
<campl tip="numar">valoarea 2-1«/campl» 
«camp2 tip-"caracter"'»valoarea 2-2«/camp2- 

</inregistrare> 

<!-- mai multe inregistrari --> 

</tabela> 


La fel, documentele XML pot fi utilizate cu succes ca fişiere de configuraţie 
pentru diverse aplicații: 


«config logdir-"/var/log/app/" 
debugfiles"/tmp/app.debug"» 
«server name-"odin" osname-"solaris" 
osversion-"2.6"». 
«address»193.30.121.101«/address» 
«/server» 
«server name-"fenrir" osname-"linux" 
osversion="2.4.2"> 
«address»193.30.121.197«/address» 
</server> 
«server name="thor” osname=" linux" 
osversion-"2.4.2"» 
«address»193.30.121.224«/address» 
«address»193.30.121.225«/address» 
«/server» 
«/config» 


De asemenea, informaţiile din cadrul unui sistem de fişiere pot fi deţinute tot de 
către documentele XML: 


«rdf:RDF» 
«rdf:Description abouts'file://localhost/article.xml"» 
«£:Properties» 
«f£:Type mime-"text/xml"»ordinary«/f:Type» 
«f:Owner uid-z"714"»busaco«/f:Owner» 
«f:Parser params="-q"> 
«xdf:Alt» 
«rdf:li» 
«rdf:Description about="file:///sbin/expat "> 
«f£:Type mime-"application/executable"» 
ordinary 
«/£:Type- 
«f:Location dns-"localhost'» 
127.0.0.1 
«/f:Location» 
«/rdf:Description» 
</raf:li> 
<rdf: li> 
<râf : Description about-"nfs://host/xmled.exe"'» 
«fitype mime-"application/octet-stream"» 
ordinary 
</f:Type> 
<f.Location dns="it2.infoiasi.ro"> 
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193.231.30.228 
«/f:Location» 

«/rdf:Description» 

«/rdf:li» 
«/rdf:Alt» 
«/f:Parser» 
</£:Properties> 
</râf:Description> 
«/rdf:RDF» 


4.4. Declaratia tipului de documente 


Declaraţia tipului de document reprezintă un marcaj special care poate fi inclus 
în documentele XML cu rolul de a specifica existenţa și locaţia definiției tipului de 
document (DTD - Document Type Definition). Declaraţia tipului de document şi 
definiția tipului de document sunt noţiuni diferite. DTD-ul însumează un set de 
reguli formale care definesc structura unui document XML, spre deosebire de 
declaraţia tipului de document, care are rolul de a indica analizorului ce DTD 
trebuie să folosească pentru verificare şi validare. DTD-urile sunt o reminiscență a 
SGML-ului şi în prezent tind a fi înlocuite de schemele XML, pe care le vom 
descrie mai târziu. 


Pentru a putea fi procesate, documentele XML trebuie să fie măcar bine 
formatate. Documentele bine formatate sunt documentele corecte din punct de 
vedere sintactic. Spre deosebire de HTML, XML este mai strict în ceea ce priveşte 
sintaxa. Regulile care trebuie respectate pentru ca un document să fie bine formatat 
sunt: 


e Față de HTML si SGML, XML este case sensitive. Greşelile de scriere a 
elementelor şi atributelor sunt destul de greu de detectat, mai ales când nu 
se foloseşte un editor XML specializat. 


e Fiecare fag deschis trebuie închis — în caz contrar, analizorul XML va 
semnala eroare. 


e Primul tag deschis trebuie să fie ultimul închis; rag-urile trebuie închise 
exact în ordinea inversă a deschiderii lor, altfel va fi semnalată eroare 
(construcția <client><aaresa>. . .</client></adresa> este incorectă). 


ə Nu sunt acceptate elementele vide. Elementele vide au sintaxa modificată: 


«element />. 


Un document XML valid este acel document bine formatat a cărui structură este 
conformă cu DTD-ul ataşat (pot fi valide doar documentele care au ataşat un 
DTD). 
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Un analizor XML efectuează două niveluri de verificare a unui document XML. 
După verificarea corectitudinii sintactice, analizorul poate verifica dacă 
documentul este conform setului de reguli specificate de DTD-ul ataşat. Dacă sunt 
respectate aceste reguli, atunci spunem despre documentul XML că este valid. 
Procesul de verificare a validității unui document se numeşte validare. 


Sintaxa declaraţiei tipului de document diferă în funcţie de tipul DTD-ului: 
intern sau extern. 


>  DTD-ul intern se declară imediat după declarația XML sau, dacă această 
declaraţie nu există, el va fi primul element exceptând comentariile, 
spaţiile de nume sau instrucţiunile de procesare. DTD-ul intern se declară 
utilizând cuvántul-cheie DOCTYPE, in modul urmátor: 

«!DOCTYPE element rádáciná | 

declaratii de elemente 

declaraţii de atribute 

declarații de entităţi, 

declaraţii de instrucţiuni de procesare 
declaraţii de notații 

]» 

e DTD-ul extern este definit într-un alt fişier text care trebuie sá se afle la o 
adresă specificată. Declarația este asemănătoare, dar intervin cuvintele- 
-cheie SYSTEM sau PUBLIC: 

«!DOCTYPE parteneri 

SYSTEM "http://undeva.ro/parteneri.dtd'» 
«1DOCTYPE parteneri 
PUBLIC "parteneri" "http: //undeva.ro/carte.dtd"» 

Fişierul parteneri.dtd aflat la adresa specificată în declarație conţine 
definițiile elementelor care vor apărea în document. Elementul 
<parteneri> trebuie să apară in DTD-ul specificat. 


Pentru o descriere pe larg a construcțiilor referitoare la DTD, recomandăm 
cititorului să consulte partea B a lucrării Tehnologii Web de Sabin Corneliu 
Buraga, Editura Matrix Rom, Bucureşti, 2001. 


4.5. Spaţii de nume 


În unele situaţii pot apărea confuzii atunci când se folosesc date din diverse 
surse (documente) XML care pot avea elemente cu acelaşi nume, dar cu 
semnificaţii diferite. Pentru evitarea acestor ambiguitáti, sunt folosite spaţiile de 
nume, astfel încât numele de elemente vor fi identificate în mod unic, iar validarea 
se va realiza fără probleme. 

Necesitatea folosirii spaţiilor de nume se poate remarca din exemplul următor, în 


care avem două documente XML — primul cu informaţii despre partenerii de 
afaceri. al doilea cu numele furnizorilor de materii prime: 
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«!-- parteneri de afaceri --> 
«parteneri» 
«partener» 
<nume>Stefan Ciprian Tanasa</nume> 
<adresa>Str. Berthelot, nr. 16 - Iasgi«/adresa» 
</partener> 


«/parteneri» 


«!-- furnizori --> 
«furnizori» 
«furnizor adresa-"http://www.bizbiz.ro/"» 
<nume>Biz-Biz</nume> 
«/furnizor» 


«/furnizori» 
Documentul care le utilizeazá pe precedentele si foloseste spatii de nume pentru 
evitarea ambiguitátilor ar putea fi urmátorul: 
«comanda xmlns:p-"http://www.undeva.ro/parteneri.dtd'» 
<partener> 
<p:nume>Stefan Ciprian Tanasa</p:nume> 
<p:adresa>Str. Berthelot, nr. 16 - laşi</p:adresa> 
</partener> 
<f£: furnizor 
xmlns:f-"http://www.altundeva.ro/furnizori.dtd"* 
fiadresa-"http://www.bizbiz.ro/"» 
«nume»Biz-Biz«/nume» 
«/£:furnizor» 
«/comanda» 


Atributul xmins este folosit pentru declararea spaţiilor de nume, iar valoarea lui 
trebuie să fie un URI. 


Spațiile de nume se pot declara explicit (ca prefix sau substitut pentru numele 
complet al unui spaţiu de nume) sau implicit (un spaţiu de nume pentru toate 
elementele domeniului lui de vizibilitate). În exemplul anterior s-au folosit ambele 
modalități de declarare. 


După cum s-a văzut în exemplul de mai sus, fiecare element şi atribut XML 
poate fi prefixat de identificatorul spațiului de nume căruia îi aparţine. 


4.6. Scheme XML 


O schemă reprezintă o specificaţie formală a gramaticii asociate unui limbaj 
definit în XML, utilă pentru validarea documentelor scrise în acel limbaj. Desigur, 
fiecărui document îi puteam asocia, în mod explicit, un DTD folosit pentru 
validarea acestuia. Schemele utilizează sintaxa XML si sunt mai natural de definit 
decât DTD-urile, specificațiile fiind bazate pe Document Content Description 
(DCD) si XML-Data. * 
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Ca si la DTD, cea mai importantá parte dintr-o schemă XML o reprezintă 
specificarea elementelor şi atributelor care pot compune un document, incluzând 
tipul şi ordinea lor de apariţie. Elementele şi atributele sunt definite în XML 
Schema prin intermediul elementelor <ElementType>, respectiv «AttributeType», 
iar instanţele lor prin <element> şi <attribute>. 


Un exemplu: 


<?xml versionz"1.0"?» 
«Schema name="SchemaPartener "> 
«ElementType name-"nume" content-"textOnly" /» 
«ElementType names"adresa" content-"textOnly" /» 
«ElementType name="telefon" content-"textOnly" /» 
«ElementType name-"email" content-"textOnly" /» 
«ElementType name-"partener" order-"many"» 
«element type-"nume" minoccurs="0" maxOccursz"1" /» 
«element type-"adresa" /» 
«element type-"telefon" maxOccurs-"1" /» 
«element type-"email" /» 
«AttributeType name-"ani" required-"no" /» 
«attribute type-'ani" /» 
«/ElementType» 
«/Schema» 


Schema specificată în acest exemplu va fi referită prin numele SchemaPartener 
stabilit prin intermediul atributului name al elementului «Schema». Fiecare schemă 
are asociat un spațiu de nume stabilit prin xmins. 


Atributul order din definiţia unui tip de element dictează regulile de apariție a 
elementelor în cadrul unui element-părinte, putând avea valorile: 


sea (sub-elementele apar în secvența specificată în cadrul schemei); 


e many (sub-elementele pot apărea în orice ordine, în orice cantitate); 
e one (un singur sub-element din lista celor specificate poate fi utilizat); 


e empty (nu se permite apariția nici unui sub-element, elementul fiind 
considerat vid). 


Fiecărui «ElementType» îi putem asocia atributul content, care dictează tipul 
conţinutului acestuia: 
e textOnly (numai text, fără alte sub-elemente); 


e  eltOnly (doar sub-elemente); 
e {mixed (conţinut eterogen, si sub-elemente, şi text). 


Implicit, pentru content-"eltOnly" se consideră cá order are valoarea seq, iar 
pentru contents"mixed", valoarea atributului order va fi many. 
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Numărul minim şi maxim de apariţii ale unui element este stabilit de valorile 
atributelor minoccurs, respectiv maxOccurs. 


4.7. De la HTML la XML 


dd ca HTML să fie compatibil cu specificaţiile XML, Consorţiul Web a dat 
publicității o variantă de tranziție de la HTML la XML, regăsită sub numel 
XHTML, varianta curentă fiind versiunea 1.1. : re 


Astfel, documentele XHTML pot fi vázute sub ambele tipuri MIME, atát 
"text/html" (compabilitate cu vechiul HTML), cât gi "isa 
(compatibilitate cu XML), elementul-rădăcină fiind <html>. Spațiile de nume 
XHTML sunt definite la adresa http: / /www.w3.0rg/1999/xhtml şi vor putea fi 
inserate în documentele XHTML prin intermediul atributului xmins. 


SGML 


HTML 4.0 


Gra matici 
non-W3C 


Fig. 1.3 - Arborele genealogic al limbajului XHTML 


RDF  XPoinier yum SMIL 


Declararea tipului de documente XHTML se va realiza prin intermediul 
construcției DOCTYPE, ca în SGML, existând trei tipuri de definiții de documente 
conform specificației HTML 4.01: tipul strict, tranzifional si pentru cadre 
(frames), după cum se poate remarca din exemplul următor (vezi si codul-sursă al 
resursei de la URI-ul http://www. infoiasi.ro/~busaco/index.htm1): 


<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 


"http: //www.w3.org/TR/xhtml!/DTD/trans 


sitional.dtd"'- 
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Dezvoltatorii de aplicații Web trebuie să ţină cont de următoarele recomandări 
pentru ca documentele Web să fie compatibile cu standardul XHTML: 


e fiind bazat pe XML, XHTML este case sensitive — marcatorii trebuie scrişi 
cu caractere minuscule. Dacă agentul-utilizator (browserul) nu recunoaște 
un element, atunci va prelucra conţinutul lui aflat între rag-urile de început 
şi de sfârșit. Un atribut nerecunoscut va fi, de asemenea, ignorat, iar o 
valoare necunoscută a unui atribut va fi înlocuită cu valoarea implicită a 
acestuia. 


e Atributul de tip rD (identificator în XML) va fi considerat fragment de 
document. Elementele a (ancoră), applet (applet Java), form (formular), 
iframe (cadru intern), frame (cadru), img (imagine), map (hartă senzitivă) 
în HTML pot avea asociat (obligatoriu sau nu) atributul name. În XHTML 
este definit atributul ia de tip 1D pentru acest scop şi name va fi înlocuit în 
viitor cu atributul ia. Pentru compatibilitate cu HTML, se vor folosi 
ambele atribute, după cum se poate remarca în exemplul următor: 


<a id="top” names"top'»«/a» 


«div align="right"> 

<a href="#top">La începutul paginii</a> 

</div> 

e Toate valorile atributelor (chiar şi cele numerice) vor trebui incluse între 
ghilimele. Astfel, construcții precum <table width=600 align=center> 
se consideră a fi eronate. 


e Anumite atribute puteau fi scrise fără a le asocia valori (aşa-numitele 
atribute booleene), ie. noshade, readonly, noresize, compact sau 
checked. În XHTML vor trebui scrise succedate de valorile lor, ca în 
exemplul de mai jos: 


<hr width="33%" align="right" noshades"noshade" /> 


e Elementele nevide trebuie să aibă tag-uri de sfârşit. Astfel, paragrafele 
marcate prin intermediul lui <p> vor avea şi fag-ul de sfârşit </p>. 
Elementele declarate cu conținut vid, precum <hr> sau <br>, fie vor fi 
urmate de rag-ul de sfârşit, fie vor fi scrise <hr /» ori, respectiv, «br /». 
Este interzis insá sá avem «1i /», din moment ce acest element nu este 
declarat ca fiind vid. 


e Elementele trebuie să aibă tag-uri de început şi de sfârşit imbricate corect. 
Construcţii precum  «h4»XHTML este  «i»exact.«/há»«/i» sunt 
considerate eronate. 


e Elementele a. form, label nu pot include alte elemente a, form, label. 
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» Elementul pre nu poate contine img, object, big, small, sub Și sup. 


e Elementul button nu poate să conțină elementele input, select, 
textarea, label, button, form, fieldset, iframe Ori isindex. 


e Elementul title trebuie să apară imediat după elementul neaa. 


e Elementul isindex poate apărea cel mult o dată în cadrul antetului 
documentului şi este considerat demodat, fiind înlocuit în prezent de 
elementul input. 


e Proiectanții de pagini Web trebuie să utilizeze foi de stiluri sau programe 
script externe dacă acestea cuprind simbolurile ,,«" sau „&” sau „,])>” sau 
po”, De asemenea, pentru scripturile CGI (Common Gateway Interface), 
parametrii transmişi vor trebui să aibă caracterul ampersand înlocuit de 
entitatea Astfel, URl-ul http://www.infoiasi.ro/ 
search.pl?name-Sabin&value-sBuraga, pentru a fi valid, va trebui sá fie 
substituit 


value=Buraga 


&amp;. 


de http://www.infoiasi.ro/search.pl?namesSabin&amp; 


Pentru a verifica dacá documentele sunt valide conform specificatiilor XHTML 
putem folosi serviciul Validator pus la dispozitie de Consortiul Web sau aplicatia 
gratuitá Tidy dezvoltatá de Dave Raggett. 


În cele ce urmează vom valida următorul cod HTML folosind utilitarul Tidy în 
varianta RPM pentru RedHat Linux, inclus şi pe CD-ul cărții. Documentul HTML 
original este: 


<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtmll/DTD/transitional.dtd"» 

«ntml xmlns-"http://www.w3.org/TR/xhtmll/transitional"» 

«head»«title»Test«/title»«/head» 

«body bgcolor=white text=black> 

<p>XHTML este compatibil cu «i»XML«/p»«/i». 

«hr sizezi width=75%> 

«/body» 

«/htmi» 


Rulám Tidy prin intermediul liniei de comenzi de mai jos: 
(infoiasi)$ tidy test.html »test-tidy.html 


Tidy (vers 4th August 2000) Parsing "test.html" 
line 6 coiumn 35 - Warning: missing «/i» before </p> 
line 6 column 39 - Warning: discarding unexpected «/i» 


test.html: Doctype given is "-//W3C//DTD XHTML 1.0 Transitional//EN" 
test.html: Document content looks like XHTML 1.0 Transitional 


2 warnincs/errors vere found! 
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HTML & CSS specifications are available from http://www.w3.org/ 

To learn more about Tidy see http://www.w3.0rg/People/Raggett/tidy/ 
Please send bug reports to Dave Raggett care of «html-tidyQGw3.org» 
Lobby your company to join W3C, see http://www.w3.org/Consortium/ 


Fişierul XHTML rezultat este cest- tidy .html, al cárui continut urmeazá: 


<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http: //www.w3.org/TR/xhtml1/DTD/transitional.dtd"» 
«html xmlnss"http://www.w3.org/TR/xhtmll/transitional"» 


«head» 

«meta name-"generator" content-"HTML Tidy, see www.w3.org" /> 
<title>Test</title> 

</head> 

«body bgcolor="white" text="black"> 

<p>XHTML este compatibil cu <i>XML</i></p>. 


«hr size="1" width="75%" /» 
</body> 
</html> 

De asemenea, se pot utiliza ca validatoare navigatoarele Web actuale (e.g. 
Netscape 6, Opera 5 sau 6, Internet Explorer 5.5 sau o versiune ulterioară), 
schimbând extensia fişierului din .html in .xmi, inseránd la începutul docu- 
mentului construcția «?xml version="1.0"?> şi adăugând fag-ului <html> 
atributul xn1ns, pentru a fi folosit spaţiul de nume XHTML. Astfel, pagina va fi 
considerată de analizorul încorporat în navigator ca fiind document XML, iar 
browserul va raporta erorile sintactice in cazul in care nu este conformá 


recomandărilor XHTML. 
4.8. Procesarea documentelor XML 


Modelul DOM 


Consorţiul Web a propus pentru prelucrarea sofisticată a documentelor XML 
şi/sau HTML un model obiectual denumit Document Object Model (DOM). Acest 
model reprezintă o interfață de programare a aplicaţiilor destinate să prelucreze 
documentele HTML si XML, independentă de platformă şi de limbaj, definind 
structura logică a documentelor şi modalităţile de accesare si modificare a lor. 


Structura logică a documentelor este arborescentă, obiectuală, documentele fiind 
modelate utilizând obiecte, iar modelul nu furnizează doar o vizualizare structurată 
a documentului, ci şi o modalitate de specificare a comportamentului lui şi a 
obiectelor componente. Fiecare element al unui document poate fi privit aşadar ca 
un obiect, fiecare obiect având identitate şi funcţii proprii. 


Consorţiul Web a structurat DOM pe mai multe niveluri (stadii) de specificare a 
modelului. Nivelul 0 (pentru HTML) a fost nivelul de funcţionalitate a versiunilor 
3 ale navigatoarelor Netscape si Internet Explorer. Nivelul ] este recomandare 
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standardizată din octombrie 1998, iar în noiembrie 2000 a fost standardizat DOM — 
nivelul 2. 


DOM nu este o specificaţie binară si nu defineşte nici o formă de 
interoperabilitate la nivel binar, în contrast cu alte tehnologii. DOM reprezintă un 
model care specifică interfețe şi nu este un set de structuri de date (abstracte). De 
asemenea, nu defineşte semantica detaliată a documentelor HTML sau XML. 


DOM reprezintă documentele ca o ierarhie de obiecte-nod. Anumite tipuri de 
noduri pot avea noduri-copii (descendenţi) de diverse tipuri. Altele pot fi noduri- 
-frunză, lipsite de descendenți. Tipurile fundamentale de noduri sunt cele din 
urmátorul tabel: 


Tabelul 1.3 - Tipurile de noduri DOM si descendentii lor 


LLAMADAS TEE ae P. Roa trf ade dedi 


Descendenţi —— — — 


gInstruction, Comment, 


Element, ProcessinglInstructio . Comment, i 
Text, CDATASection, EntityReference | 


;DocumentFragment i 


T O MI 


, EntityReference 


EntityReference 


iCDATASection 


:Notation 


essingInstruction, Comment, 
ction, EntityReference 


‘Entity 


Pentru fiecare tip de nod, DOM oferă o interfață care desemnează constantele, 
variabilele şi metodele ce vor putea fi folosite de programator într-o implementare 
efectivă a modelului. Există o serie de interfeţe fundamentale (e.g. Document, 
DocumentFragment, Node, NodeList Sau Attr), plus diverse interfeţe extinse 
pentru a suporta implementări având în vedere procesarea documentelor HTML. 


Drept exemplificare, vom considera următorul document: 


<!DOCTYPE HTML PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"» 
«html» 
«head»«/head» 
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«body» 
«ul» 
«li»Sectiunea 1</li> 
«li»Sectiunea 2«/ii» 
«li»Sectiunea 3«/li» 
«/ul» 
«hr» 
«!-- Sfârşit --» 
«/body» 
«/html» 


Arborele de obiecte-nod asociat acestui document XHTML este ilustrat de 
figura de mai jos. 


Ín prezent, existá implementări complete pentru DOM -— nivelul 1 si parțiale 
pentru DOM - nivelul 2 în majoritatea limbajelor de programare (C/C++, Perl, 
Java, JavaScript, Object Pascal). 


Procesarea XML prin SAX 


Pentru documente de dimensiuni mari, modelul DOM este ineficient, deoarece 
înainte de a se realiza prelucrarea, documentul respectiv trebuie încărcat complet în 
memorie, Ca alternativă la implementările DOM, există o interfață simplă de 
programare destinată manipulării documentelor XML, însă nu atât de completă 
precum DOM. Această interfaţă este denumită Simple API for XML (SAX). 


Majoritatea celor care se ocupă de prelucrarea documentelor XML văd structura 
unui document în formă arborescentă, iar modelul DOM oferă din plin posibilitatea 
de a manipula informaţiile în această manieră. Din punctul de vedere al 
implementatorilor, această abordare are numeroase deficiențe (maniera de stocare 
internă a arborelui de obiecte, parcurgerea lui etc.). Unul dintre beneficiile utilizării 
interfeței SAX este că arborele nu mai trebuie construit, dându-i-se 
programatorului o altă cale de analiză a documentului XML. Mai mult, SAX poate 
ajuta la convertirea datelor din formatul arborescent DOM în alt format mai 


comod, iar pentru procesare nu este necesar a se memora întreaga informatie XML, 
ci numai părțile dorite. 
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Fig. 1.4 — Arborele de obiecte-nod asociat unui document XHTML 


Exemple de procesare XML prin SAX în limbajul Perl vor fi oferite în cadrul 
secțiunii 4.1 a capitolului 4. 


Analizoare XML 


Desigur, pentru a nu reinventa de fiecare dată roata, pentru prelucrarea 
documentelor XML va trebui să recurgem la un analizor XML deja implementat în 
limbajul nostru preferat. Analizoarele XML pot fi de două tipuri: 


e analizoare fără validare, care vor procesa un document XML verificând 
dacă acesta este bine formatat (adică respectă regulile privind sintaxa și 
modul de imbricare a tag-urilor); 


e analizoare cu validare, care vor realiza procesarea documentului XML 
prin verificarea regulilor formale descrise de un DTD sau o schemă ataşată 
acestuia (aceste analizoare sunt mai complexe, putând realiza, de exemplu, 
şi expandarea entităţilor). 
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Unul dintre cele mai cunoscute analizoare fără validare este Expar, procesor 
XML elaborat de James Clark. Expat se află inclus si în navigatorul 
Mozilla/Netscape 6 şi este utilizat şi de Perl (prin modulul XML: : Parser prezentat 
în capitolul 4) sau de serverul de aplicaţii PHP. De asemenea, pot fi utilizate 
analizoarele XMLAC şi XML4J de la IBM (pentru limbajele C, respectiv Java). 
JAXP (Sun) sau Xerces (Apache). Se pot menţiona si libxml (parte a proiectului 
GNOME) ori JDOM. 


5. Exerciţii propuse 


1. Să se studieze deosebirile dintre versiunile succesive ale limbajului HTML şi 
varianta XHTML curentă, consultând recomandările Consortiului Web. 


2. Să se organizeze în formatul XML datele referitoare la proprietăţile imobiliare 
ale unei persoane, în vederea realizării ulterioare de programe pentru determi- 
narea tuturor imobilelor unei persoane, listarea persoanelor dintr-un imobil, 
situaţia imobilelor dintr-un cartier etc. 


3. Să se marcheze în XML datele privitoare la medicamentele dintr-o farmacie: 
numele medicamentului, producătorul, furnizorul, cantitatea, preţul, indicaţiile 
şi contraindicaţiile, valoarea livrărilor dintr-o lună etc. De asemenea, să se 
valideze formal documentele XML create. 


4. Să se imagineze un set de documente XML care să stocheze informaţii relative 
la mersul trenurilor (orar, staţii intermediare, tipuri de trenuri) şi la rezervarea 
locurilor şi eliberarea de bilete la anumite trenuri. Să se figureze şi arborii 
DOM asociaţi documentelor XML create. 


Capitolul 2 
Standardul CGI 


Capitolul de față prezintă standardul CGI (Common 
Gateway Interface) pentru conceperea de aplicaţii Web pe 
partea server, alături de o serie de amánunte privind 
directivele SSI (Server Side Includes) şi cookie-urile. 


1. CGI (Common Gateway Interface) 


Standard de facto pentru interacțiunea clienţilor Web cu serverele Web, 
Common Gateway Interface se află în prezent la versiunea 1.1. Un program CGI, 
denumit în mod uzual script, se execută pe serverul WWW fie în mod explicit 
(apelat din cadrul paginii printr-o directivă specială), fie la preluarea informaţiilor 
aflate în cadrul câmpurilor unui formular interactiv sau coordonatelor unei zone 
senzitive (image map). CGI conferă interactivitate paginilor Web, documentele 
HTML putând astfel să-şi modifice în mod dinamic conținutul şi să permită 
prelucrări sofisticate de date. Programele CGI pot oferi suport şi la autentificarea 
utilizatorilor pe partea server. 


1.1. Scripturi CGI 


Programele CGI pot fi scrise în orice limbaj, fiind interpretate (cazul bash, Perl, 
Python, Tcl) sau compilate (C, C++, Delphi). Regulile care trebuie respectate la 
conceperea unui script CGI sunt următoarele: 


e programul scrie datele (marcaje HTML, XML, imagini etc.) spre a fi 
trimise navigatorului Web la ieşirea standard (stdout); 


* programul generează anteturi care permit serverului Web să interpreteze 
corect ieşirea scriptului (folosindu-se specificațiile protocolului HTTP). 


Cele mai multe scripturi CGI sunt concepute pentru a procesa datele introduse în 
formulare. Un formular se definește în XHTML folosindu-se marcatori specifici 
pentru afișarea conținutului şi introducerea datelor de către client, iar scriptul, 
invocat şi executat de serverul Web, va prelua conținutul acelui formular şi-l va 
prelucra, returnánd, eventual, rezultatele către navigator. 


Antetul trimis serverului de către programul CGI va respecta specificaţiile 
MIME, conținând, de exemplu, Content-type: text/html (document HTML sau 


STANDARDUL CGI 4] 


XHTML) sau Content-type: image/jpeg (imagine JPEG) ori Content-type: 
text/plain (text obişnuit). 


Programului CGI i se vor transmite în diverse variabile de mediu sau de la 
intrarea standard informaţii referitoare la datele de procesat sau la clientul care a 
inițiat cererea, în funcție de metoda de transfer utilizată, după cum vom vedea mai 
jos. 


1.2. Variabilele de mediu disponibile in cadrul unui script CGI 


Oricare program CGI va putea dispune de valorile urmátoarelor variabile de 
mediu: 


ə Variabile independente de metoda cererii şi asignate pentru toate cererile 
HTTP: 


e SERVER_SOFTWARE furnizează numele şi versiunea serverului Web 
care procesează cererea HTTP şi rulează scriptul CGI. 


e SERVER_NAME specifică numele simbolic al maşinii pe care rulează 
serverul Web. 


e  GATEWAY, INTERFACE stochează versiunea specificatiei CGI folosite 
(cG1/1.0 ori CG1/1.1 în prezent, cGr/1.2 în viitor). 


e Variabile de mediu specifice cererilor care vor fi transmise spre 
programul CGI: 


e SERVER_PROTOCOL oferă numele şi versiunea protocolului de 
transmitere a datelor (e.g. HTTP/1.0). 


e SERVER_PORT furnizează portul asociat serverului care va procesa 
cererea (de obicei, portul 80). 


e REQUEST METHOD specifică metoda prin care va fi formulată 
cererea: GET, POST, PUT etc. 


e PATH INFO furnizează informaţii suplimentare despre calea de 
directoare; scripturile CGI pot fi accesate folosind căi virtuale 
urmate de informaţii suplimentare care se regăsesc în această 
variabilă. 


e PATH TRANSLATED Oferă o versiune translatată a lui PATH INFO, 
care asociază căilor virtuale nume de directoare reale, așa cum se 
găsesc pe calculatorul pe care rulează serverul Web. 
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* SCRIPT_NAME desemnează calea virtuală până la scriptul care va fi 
executat. 


^» 


* QUERY_STRING conţine toate informațiile de după caracterul „> 
din URL-ul care referă scriptul CGI, informaţii care vor trebui 
decodificate de acel script (vezi mai jos). 


*  REMOTE HOST indică adresa simbolică a calculatorului care a 
formulat cererea (prin intermediul unei pagini Web sau direct prin 
specificarea unui URI). 


e REMOTE_ADDR furnizează adresa IP a clientului care a formulat 
cererea, asociată adresei simbolice date de REMOTE_HOST, 


*  AUTH TYPE desemnează metoda de autentificare utilizată să 
valideze utilizatorul, dacă serverul suportă autentificarea 
utilizatorilor şi scriptul CGI este protejat. 


* REMOTE_USER indică numele utilizatorului, dacă serverul suportă 
autentificarea utilizatorilor. 


e REMOTE IDENT furnizează identitatea clientului care a formulat 
cererea, asa cum este returnată de daemonul identa, conform 
specificaţiilor RFC 931. 


* CONTENT TYPE indică tipul conţinutului datelor vehiculate, pentru 
cererile care au atașate informații suplimentare, precum PUT sau 
PosT (de exemplu, pentru un formular transmis prin metoda pos, 
normal ar trebui ca variabila cowTENT TYPE să aibă valoarea 
application/x-www-form-urlencoded). 


e CONTENT LENGTH confine numărul de octeți ai datelor trimise de 
client. 


Suplimentar, liniile antet (dacă există) recepționate de la client prin intermediul 
protocolului HTTP vor fi plasate în variabile de mediu având numele prefixate de 
HTTP. . Serverul poate exclude liniile antet deja procesate, precum Authorization, 
Content-type Sau Content-length. 


Ca exemple de astfel de variabile se pot menționa: 


e HTTP ACCEPT indică tipurile MIME pe care le va accepta clientul, fiecare 
tip fiind despărţit de virgulă, aşa cum specifică protocolul HTTP: 
tip/subtip, tip/subtip. 
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e HTTP_USER_AGENT furnizează numele şi versiunea browserului Web care a 
formulat cererea, în formatul general: software/versiune biblioteca/ 


versiune. 


În următoarele două capitole vom indica modalitățile de accesare a valorilor 
acestor variabile de mediu atât în bash (secţiunea 4.1 a capitolului 3), cât şi în Perl 
(secțiunea 2.1 a capitolului 4). 


1.3. Apelarea programelor CGI din formularele Web 


Pentru a fi efective, programele CGI trebuie apelate (implicit sau explicit) din 
cadrul paginilor Web. Uzual, un script CGI va fi invocat din cadrul unui formular 
HTML la apăsarea butonului de trimitere a datelor către server (butonul de tip 


submit). 


Să presupunem că avem următorul exemplu, în care un utilizator introduce prin 
intermediul unui formular două numere întregi, iar programul CGI va genera o 
pagină Web conţinând maximul dintre ele. 


Formularul XHTML ar putea fi: 


«form action-"http://www.infoiasi.ro/cgi-bin/max.cgi" 
method="GET"> 
<p>Vvă rugăm, introduceți două numere:</p> 
«input namez"nrl" size-"3" /» 
«input name-"nr2" sizez'3" /» 
«br /» 
«input type="submit" value="Află maximul" /» 


<y form» 

De exemplu, introducând numerele 7 si 4 si acționând butonul etichetat „Află 
maximul”, vom primi o pagină Web (un document marcat în XHTML) care va 
afişa textul „Maximul dintre 7 şi 4 este numărul 7” (vezi figura). 


Presupunând că în cele două câmpuri ale formularului (purtând numele nr] şi 
respectiv nr2) am introdus valorile 7 şi respectiv 4 şi am apăsat butonul de tip 
submit (etichetat cu „Află maximul”), navigatorul va trimite, prin intermediul 
protocolului HTTP, o cerere către serverul Web aflat la adresa dată de URL-ul 
http://www.infoiasi.ro (adresa este preluată din valoarea atributului action al 
elementului <form>; scriptul poate fi localizat și prin intermediul unui URL 
relativ), Desigur, în loc de o adresă absolută, putea fi specificată o cale relativă, 
însemnând faptul că se folosește serverul pe care se găsește pagina conținând 
formularul. 


Atunci când se trimite cererea HTTP, navigatorul construieşte un URL având ca 


sufix informaţii despre datele introduse în câmpurile formularului, în cazul nostru 
: falacindu-ee n 


breno 7 fum infoibel vnelemiochin/max eni?nvrizT7RnrO0-4 
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codificare specialá. Pentru fiecare cámp al formularului se va genera o pereche 
nume de cámpzvaloare delimitată de caracterul ,,&", iar caracterele speciale (ca de 
exemplu siash-ul sau apostroful) vor fi înlocuite de codul lor numeric, în 
hexazecimal, precedat de caracterul procent (,$"). Spațiile vor fi substituite de 
semnul plus (,,«"). De exemplu, pentru a trimite textul Cina de la Maxim's se va 
folosi codificarea Cina+de+la+ Maxim 9%27s. 


MINES 


a Eile Edit View Navigation Bookmarks Window Help 


SR Location: |http//vww.infolasi.ro/cgi-bin/max.html & | 


Introduceti doua numere: [7 [4 
Afla maximul 


“ Location: 


binimaxegi?nr1=7&nrz=a| 3) 


|| htp://vivww.infolasi.ro/cgi- 


Maximul dintre 7 si 4 este: 7 


Fig. 2.1 — Introducerea datelor în formular si obținerea rezultatului furnizat 
de scriptul CGI după acţionarea butonului de tip submit 


Serverul spre care cererea a fost expediată (în cazul sitului www.infoiasi.ro un 
server Apache rulând pe un sistem Linux RedHat) va procesa datele recepționate 
conform regulilor proprii. Tipic, configurația serverului defineşte unde sunt stocate 
în cadrul sistemului de fişiere directoarele şi fişierele CGI. Fişierele de configurare 
a serverului în mod uzual se regăsesc în directorul /etc/httpd/cont/, cel mai 
important fişier fiind httpd.conf. 


De cele mai multe ori, daemonul HTTP (adică serverul Web, regăsit ca proces 
de fundal sub numele nttpa) rulează pe maşină sub auspicii de utilizator fictiv (din 
raţiuni de securitate ca nobody sau apache, în mod uzual), fişierele sale fiind 
stocate (în cazul unui sistem UNIX/Linux) de obicei în directorul /home/httpd/ 
sau, mai recent, în directorul /var/www/. Aici, alături de directorul htmi unde se 
memorează documentele (HTML, CSS, fişiere multimedia, fişiere JavaScript etc.) 
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unui sit Web, se află si directorul cgi-bin, unde ar trebui să fie stocate toate 
fişierele (scripturile) CGI apelate din cadrul paginilor Web. 


Aşadar, URl-ul http://www.infoiasi.ro/cgi-bin/max.cgi va însemna 
pentru serverul Web aflat la adresa www. infoiasi.ro următoarea acțiune: „invocă 
programul max. cgi aflat la /home/httpd/cgi-bin". Astfel, în loc să trimită către 
navigatorul Web care a iniţiat cererea HTTP un document HTML sau un fişier de 
alt tip, serverul va invoca scriptul CGI specificat (în acest caz max. cgi) şi-i va pasa 
datele furnizate de sufix, de după semnul întrebării (adică şirul axi-7&nr2-4). 


Acţiunea de invocare va avea o semantică diferită, în funcție de scriptul CGI 
conceput. Pentru un script Perl, serverul va invoca un interpretor Perl (în cazul 
Apache, un modul special mod per1; de fapt, pentru a permite execuţia de 
programe CGI, serverul Apache se va folosi de serviciile modulului mod_cgi). 
Pentru un program executabil (de exemplu, compilat într-unul din limbajele C sau 
C++), serverul va lansa programul ca proces separat. 


Nuvigator 
Web 


q 00v INTERNET - pone 


js Weh 
T Iapa LI A 
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"D EY 


^w 
€ 
Sen CGE 


Fig. 2.2 — Procesul de invocare a unui script CGI 


` 


Extensia de fişier .cgi nu are nici o relevanță in general, dar pot exista diverse 
reguli de numire a fişierelor CGI executabile dependente de server sau de sistemul 
de operare pe care rulează. Pentru ca un script CGI să poată fi invocat, trebuie să 
poată fi citit şi executat de utilizatorul fictiv sub care îşi desfăşoară activitatea 


serverul Web. 


În funcţie de metoda de transfer folosită, scriptul CGI va primi în mod diferit 
şirul de interogare. 


e Pentru metoda GET (metoda implicită de transfer a datelor de la un 
navigator Web), informațiile din şirul de interogare (cele de după 
delimitatorul ,?") vor fi disponibile într-o variabilă de mediu purtând 
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numele QUERY_STRING. Astfel, în cazul exemplului de mai sus, valoarea 
acestei variabile va fi nr1=?&nr2=4. 


e Metoda POST este utilă în situaţiile in care avem de trimis scriptului CGI 
spre prelucrare un volum mai mare de date (de exemplu, conținutul unei 
scrisori ori al unui fişier) sau informaţii confiden(iale (e.g. parole) care nu 
trebuie să apară în componența URI-ului transmis serverului Web. 


Pentru formularele utilizând metoda POST, datele pasate scriptului vor putea fi 
accesate de la intrarea standard (stdin), iar lungimea, în octeți, a informaţiilor 
trimise va fi disponibilă în variabila de mediu CONTENT_LENGTH. Vor trebui citite 
atâtea caractere câte indică variabila CONTENT_LENGTE, nu mai multe. 


De multe ori este util ca într-un script CGI să detectăm metoda de transfer 
pentru a prelua datele în mod corespunzător. Pentru aceasta va trebui să se testeze 
valoarea variabilei de mediu REQUEST_METHOD, după cum vom vedea în exemplele 
prezentate în următoarele capitole. 


Exemplu 


Vom furniza în continuare un alt exemplu de formular pentru a studia URI-ul 
trimis spre prelucrare serverului Web. Fie formularul stocat într-o pagină de pe 
serverul www. undeva. ro: 

«form method-"GET" action="/adauga.cgi"> 

«input name="un nume" value="dati un nume" /» 

«input type-"hidden" names"control" values"A " /» 

«input type="submit" value="Trimite" /» 
</form> 

În urma apăsării butonului de tip submit, fără ca utilizatorul să modifice 
formularul, serverul Web va primi URl-ul: 


http://www.undeva.ro/adauga.cgi?unsnume-datisunsnume&control-A* 


Desigur, caracterul spațiu a fost substituit cu +”, iar valoarea câmpului ascuns 
denumit control a fost si ea transmisă, desi în mod normal acest câmp este 
inaccesibil utilizatorului. De menționat faptul că atributul metnoa al elementului 
<form> putea lipsi, deoarece GET este metoda implicită de transfer. Pentru 
methods"POST" datele nu mai erau adăugate la URI-ul transmis serverului. 


Obligatoriu, înainte de a fi expediate alte informaţii spre client, orice script CGI 
va trebui să trimită linia-antet content-type în care se va specifica, folosindu-se 
tipurile MIME (vezi capitolul 1 pentru detalii), ce tip de date va primi navigatorul 
Web (un program CGI poate trimite nu numai documente sau fragmente de docu- 
mente HTML, ci orice altceva: imagini, fişiere audio, text obişnuit, arhive etc.), 
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Conform protocolului HTTP, între câmpul content-type Şi restul informaţiilor 
trebuie lăsată o linie vidă. 


Programul CGI va trebui plasat (în cele mai multe situații) în directorul cgi-bin 
al serverului Web (e.g. /home/httpd/cgi-bin/). Asa cum am menţionat mai sus, 
pentru a putea fi accesat, va fi necesar să poată fi executat de proprietar (de obicei 
utilizatorul special nobody), de grup şi de alţii (drepturile 755 în UNIX/Linux). Un 
utilizator obişnuit îşi va putea stoca scripturile CGI în acelaşi director în care s-au 
memorat şi documentele Web obişnuite (uzual,  $HOME/html/ sau 
SHOME/public. html/) ori la altă locație, în funcție de configurația serverului Web. 


După instalarea scriptului, oricare utilizator din Internet (dacă nu sunt impuse 
restricții de către administratorul Web) îl va putea accesa şi invoca prin intermediul 
unui formular HTML sau direct via un URI codificat. Astfel, scriptul va trebui să 
fie capabil să proceseze orice tip de dată si să semnaleze posibilele erori, pentru 
ambele metode HTTP. De asemenea, orice script CGI va trebui să nu permită 
accesarea de date confidentiale de pe magina pe care rulează, administratorul Web 
trebuind sá ia másurile necesare de securitate. 


Atunci cánd intr-un URL nu se specificá o resursá particulará, ci numai numele 
unei director, serverul Apache va trimite in mod implicit navigatorului care a 
formulat cererea resursa conținută de fişierul index.html (dacă există) din acel 
director. Astfel, atunci când vizităm http: //www.infoiasi.ro, serverul Web va 
trimite fişierul /home/httpd/html/index.html. La fel, pentru URL-ul 
http://www.infoiasi.ro/-busaco se va încărca documentul cu numele 
/home/busaco/html/index.html. Această facilitate este utilă şi în cazul în care în 
loc de documentul index.html dorim ca serverul să invoce un script CGI. Serverul 
Web, în mod implicit, va încerca să invoce index.cgi dacă fişierul index.html 
lipseşte. Astfel, putem redirecţiona automat utilizatorul spre o altă locaţie, în 
funcție de sistemul ori navigatorul folosit, de preferinţele lingvistice sau de 
localizarea geografică etc. 


2. SSI (Server Side Includes) 


“Server Side Includes oferă posibilitatea execuţiei de scripturi CGI şi de 
efectuare a altor acțiuni din cadrul paginilor Web prin intermediul unor comenzi 
incluse direct în codul HTML, fără a necesita prezența unui formular pentru 
activarea scriptului dorit. 


Fiecare comandă SSI va putea fi inserată în paginile Web printr-un comentariu 
special de forma: 


<!--#comandă --» 
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unde comandă este o comandă (directivă) suportată de specificatia SSI. Din 
moment ce este inclusá ca un comentariu HTML, navigatorul Web o va ignora, dar 
va fi procesatá pe partea server si comentariul va fi inlocuit cu iegirea acelei 
comenzi. Fisierele HTML utilizând comenzi SSI vor avea extensia .shtml în loc 
de „html, dar această convenţie nu este obligatorie. 


Comenzile SSI uzuale sunt următoarele: 
e echo 


Cu ajutorul lui echo pot fi afișate diverse informaţii preluate din variabilele de 
mediu, precum data şi timpul curent, adresa IP a clientului care vizualizează 
pagina, tipul de navigator folosit etc. Iată câteva exemple: 

<p>Data şi timpul sunt 
<!--techo vars"DATE LOCAL" --> 

<p>Legătura prin care s-a ajuns aici este 
<!--techo varz"HTTP REFERER" --» 

<p>Adresa IP de la care se accesează pagina este 
<!--techo Varz"REMOTE ADDR" --» 

<p>Numele acestui document este 
<1--techo var= " DOCUMENT NAME" --» 

<p>Navigatorul şi sistemul pe care rulează sunt 
<!|--techo var= "HTTP_USER_AGENT! --» 

De asemenea, mai pot fi utilizate şi variabilele predefinite LAST_MODIFIED sau 


DOCUMENT URI. 


L] fsize 


Va furniza lungimea unui fişier existent pe server. 


Lungimea acestei pagini Web este de 
«!--sfsize filesz"index.html" --» 


e flastmod 


Va returna data si timpul celei mai recente modificări a unui fişier specificat. 
Ultima actualizare a avut loc la 
<!--#flastmod files"index.html" --» 


e exec 


Probabil cea mai folosită comandă SSI, va rula un script CGI pe server, iar 
rezultatul va fi plasat în locul invocării lui exec. Programul CGI va trebui să aibă 
setate permisiunile de execuţie. Exemple de utilizare a acestei directive sunt date în 
capitolele 2 (vezi secțiunea 4.2) şi 3 (vezi secțiunea 2.3), 


° include 


Această comandă permite includerea unui fişier (de oricare tip, în mod uzual text 
ori conținând marcatori HTML) în cadrul unei pagini Web. fiind utilă nentru 
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generarea de anteturi şi note de subsol fără a folosi scripturi CGI ori putând fi 
folosită ca alternativă la exec, în cazul în care exec nu este permisă din raţiuni de 
securitate, 

«h5»Ultimele ştiri: 

<!--#include files'stiri.txt" --> 

</h5> 


3. Cookie-uri 


3.1. Prezentare generală 


Cookie-urile reprezintă un mecanism standard care permite ca un server (sit) 
Web să trimită anumite informaţii pe calculatorul unui client (utilizator), prin 
intermediul navigatorului, să ceară clientului să stocheze aceste informaţii pentru 
ca, ulterior, în diferite circumstanțe, navigatorul să returneze informaţiile spre 
serverul WWW. Cookie-urile pot fi privite aşadar ca un mijloc persistent de stocare 
a datelor pe maşina clientului Web, cu scopul de a fi accesate ulterior de pe server, 
fiind utilizate la memorarea preferințelor utilizatorilor, la diverse tranzacții de 
comerț electronic, la completarea automată a formularelor, la stocarea informaţiilor 
de autentificare etc. 


În cadrul unei tranzacții HTTP, serverul Web nu memorează nici o informaţie 
despre aceasta, datorită modului de concepere a protocolului de transfer al datelor 
hipertext. În anumite cazuri, este însă util ca informaţiile de stare ale unei 
conexiuni (sesiuni) HTTP să fie stocate pentru a fi folosite în cadrul altei tranzacții 
de date. Astfel, a apărut necesitatea implementării cookie-urilor în cadrul 
navigatoarelor Web ca entităţi purtătoare de date între servere şi clienți. 


Programatorul poate seta un cookie să fie persistent (nu va fi distrus la 
închiderea navigatorului, ci va fi memorat într-un fişier, după cum vom vedea mai 
jos, perioada lui de viață fiind stabilită de creator) sau nu, 


3.2. Atributele unui cookie 


Un cookie constă în principal dintr-o pereche numesvaloare asemănătoare 
parametrilor vehiculati de scripturile CGI. Valoarea reprezintă un şir de caractere 
ce trebuie codificat în maniera URL-urilor. Datele referitoare la un cookie vor fi 
recepționate de către navigator menţinând o listă de cookie-uri aparţinând 
serverului care le-a trimis. Perechile (nume, valoare) ale cookie-urilor prezente în 
memoria navigatorului vor fi returnate spre procesare serverului care le-a creat, la 
cererea acestuia. 
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Mecanismul de setare a cookie-urilor pe calculatorul client şi de retrimitere a lor 
spre server se bazează pe câmpurile din antetul unei tranzacții de date HTTP. 


Astfel, un cookie este trimis unui client incluzând un parametru-antet Set- 
Cookie într-un răspuns HTTP, forma lui generală fiind: 
Set-Cookie: nume=valoare; 


expires-data; path-cale; 
domain-domeniu; secure 


Pot fi specificate atributele opționale: 
e expires 


Reprezintă data şi timpul (în formatul way, DD-Mon-YYYY HH:MM:SS GMT) când 
cookie-ul va expira şi va fi şters de pe disc. Dacă nu este dat nici un timp de 
expirare, atunci cookie-ul se consideră a fi nepersistent şi va dispărea la închiderea 
navigatorului. 


e domain 


Atunci când se caută un cookie în lista de cookie-uri se efectuează şi o 
comparație între valoarea acestui atribut şi adresa domeniului din care s-a 
recepționat antetul HTTP. Comparaţia se realizează pornind de la sufixul valorilor 
comparate, în sensul că dacă avem domain=uaic. ro, atunci această valoare se va 
potrivi cu un nume de gazdă precum info.uaic.ro sau fenrir.info.uaic.ro. 
După efectuarea acestei comparații, în cazul în care cookie-ul este validat, se va 
verifica şi valoarea atributului path (vezi mai jos). Valoarea implicită a atributului 
domain este numele simbolic al serverului care a generat acel cookie. 


e path 


Se utilizează pentru a specifica un subset de URL-uri din domeniul 
corespunzător unui cookie valid. Dacă deja cookie-ul a fost validat în urma 
procedurii de comparare a domeniului, atunci componenta cale a URL-ului este 
comparată cu valoarea atributului path, în urma căreia cookie-ul este considerat 
acceptat sau nu. Calea /doc se va potrivi, de exemplu, cu /documentatii şi cu 
/doc/index.html, dar nu cu /dom. Cea mai generală cale de directoare este calea 
rădăcină desemnată de ,,/". 


e secure 


Dacă un cookie este marcat ca secure, prin intermediul acestui atribut, va fi 
transmis numai dacă tranzacţia HTTP este una sigură (folosindu-se protocolul 
HTTPS). 


Un cookie este transmis doar dacă întruneşte toate condiţiile de validitate (se 
potrivesc domeniul, calea de directoare, timpul de expirare si securitatea canalului 
de comunicaţie). 


Serverul va primi de la client, în antetul HTTP, o linie de forma: 


Cookie: numel-valoarel; nume2zvaloare2... 


De retinut urmátoarele aspecte: 


e pot fi trimise mai multe anteturi Set-Cookie într-o tranzacție de date 
HTTP; 


e deşi un cookie nu a atins timpul de expirare, el poate fi şters fie de 
navigator, fie de utilizator; 


e lungimea anteturilor Set-Cookie şi Cookie nu poate fi mai mare de 4 
kilobytes; 


e anumite navigatoare limitează numărul total de cookie-uri care pot fi setate 
de un server/domeniu (la Netscape, numărul total este de 20); 


e dacă un script CGI vrea să șteargă un cookie de pe masina-client, atunci va 
trimite un cookie având acelaşi nume ca şi cookie-ul dorit a fi eliminat, cu 
valoare nulă si cu timpul de expirare setat în trecut (i.e. Thu, 01-Jan-1970 
00:00:00 GMT). Calea va fi de obicei stabilită la ,,/"; 


e nu se pot genera cookie-uri pentru domenii care nu aparțin URL-ului 
transmis de serverul Web (un script din domeniul infoiasi.ro nu poate 
genera cookie-uri având domain-tuiasi.ro); 


e antetul set-Cookie nu va fi niciodată memorat în cache-ul unui proxy 
Web, fiind propagat spre client, indiferent dacă se returnează cod de stare 
200 (OK) sau 304 (Not Modified); 


3.3. Stocarea cookie-urilor 


Un cookie este limitat la 4 kilobytes lungime, fiecare cookie fiind salvat într-un 
fişier separat ori toate cookie-urile fiind memorate într-un fişier comun, în funcţie 
de tipul şi de versiunea navigatorului folosit. La fel, numărul total de cookie-uri ce 
pot popula hard-disk-ul este dependent de navigator (la Netscape, maxim 300). 
Cookie-urile pot fi şterse, fie de către serverul care le-a produs, fie prin intermediul 
unei opțiuni a navigatorului, fie de către utilizator (căutându-le pe disc). 
Localizarea fişierelor conținând cookie-uri este, de asemenea, dependentă de 
navigator. La Netscape, există un fişier denumit cookies (varianta UNIX/Linux) 
sau cookies.*xr (varianta Windows sau Mac OS) aflat în directorul personal al 


58 i PROGRAMARE WEB ÎN BASH SI PERL 


utilizatorului. Pentru Lynx, dacă este configurat să salveze cookie-urile pe disc, 
atunci ele vor fi stocate în directorul home al utilizatorului în fişierul 


.lynx_cookies. Acest fişier are acelaşi format ca şi fişierul cookies generat de 
Netscape. 


Un exemplu de conţinut al unui fişier cookies Netscape este cel de mai jos: 


localhost FALSE / FALSE 966862979 culoare verde 
locaihost FALSE / FALSE 966782841 alta culoare albastra 
.uaic.ro FALSE / TRUE 966862979 secure 
Secure$20communications 

.uaic.ro FALSE /doc FALSE 969367226 count 3 


„yahoo.com FALSE FALSE 966862979 path 
http$3A//www.yahoo.com/ 


Câmpurile din acest fişier au următoarele semnificaţii: 


Tabelul 2.1 — Informaţiile privitoare la un cookie 


Ec NM 


Descriere — — 


ge 
E 
t 
E 


domeniu  ? ars 
;domain dintr-un antet Set-Cookie). 


; Este TRUE dacă toate maşinile din domeniul dat pot accesa 
„cookie-ul. Această valoare este setată automat de navigator în urma 
.comparatiei de sufixe de domenii. 


indicator de 
acces 


cale ; Valoarea atributului path. 


indicator de : CRET ; 1 
Indicá existenta atributului secure. 


securitate i 
timpulde i Valoarea atributului expires măsurată in numărul de secunde. 
iara scurse de la data Ol ianuarie 1970, ora 00:00:00 GMT (timpul, 
xpirare : ) 
UNIX). 
nume Numele cookie-ului. 
valoare Valoarea asociată cookie-ului, codificată. 


Amănunte — însoțite de exemple — referitoare la programarea cookie-urilor în 
bash si Perl vor fi furnizate în următoarele capitole. 


Domeniul care a creat și care poate consulta cookie-ul (atributul 


Capitolul 3 
Bash 


Acest capitol prezintă, după o enumerare succintă a 


oferite programatorilor de scripturi CGI în bash. 


1. Caracterizare 


Un shell reprezintă un macro-procesor capabil să execute comenzi. Un shell 
Linux (UNIX) este atât un interpretor de comenzi, interfață între utilizator şi un 
bogat set de comenzi şi utilitare, cât şi materializarea unui limbaj de programare ce 
oferă mecanisme complexe de operare cu sistemul. 


Bash este un shell (interpretor de comenzi) specific sistemului de operare Linux, 
conceput sub auspiciile GNU (GNU: is Not Unix). Numele este un acronim de la 
Bourne Again Shell, după Steve Bourne, autorul shell-ului sh pentru UNIX, 
predecesorul bash-ului. Creatorul shel/-ului bash este Brian Fox de la Free 
Software Foundation, de menţinere şi dezvoltare ocupându-se Chet Ramey. 


Shell-ul bash este compatibil cu sh, include facilități oferite de shell-urile Korn 
(ksh) si C (csh). De asemenea, se conformează standardului JEEE POSIX (Portable 
Operating System Interface) si specificațiilor Utilities (IEEE Working Group 
1003.2). 


Pentru sistemele de operare Linux, shell-ul implicit este bash. Existá mai multe 
versiuni de bash disponibile, în prezent cea mai utilizată pe un sistem Linux fiind 
bash 2.0. Ca si alte pachete de programe GNU, bash-ul este portabil si se gáseste in 
aproape toate versiunile de UNIX, iar independent îl putem rula în OS/2, DOS si 
Windows NT. 


Sheli-ul bash oferă o multitudine de posibilități administratorilor şi progra- 
matorilor de sistem, posedând toate caracteristicile unui limbaj de programare de 
nivel înalt. În cele ce urmează vom descrie o parte dintre cele mai interesante şi 
utile aspecte ale acestui shell, 
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2. Comenzi 
Existá douá categorii de comenzi: 


e comenzi interne (care se găsesc implementate in fişierul executabil al 
shell-ului); ca exemple de comenzi interne (denumite şi builtins) putem 
enumera cd, readonly sau while; 


e comenzi externe (acestea se găsesc separat fiecare într-un fişier executabil, 
având acelaşi nume cu comanda respectivă); de exemplu, passwa, test ori 
mail. Comenzile externe pot fi fişiere executabile (programe executabile 
rezultate în urma procesului de compilare din programe-sursă scrise în C 
sau alte limbaje compilabile) sau scripturi (fişiere de comenzi interpretate 
de un procesor de comenzi, e.g. bash sau Perl). 


Sintaxa generală a unei comenzi care va fi executată de shell-ul bash este: 


comandă [opţiuni] [paraml param2 ... paramN) 


unde comandă este numele comenzii, opțiuni indică opțiunile invocate (de regulă 
prefixate de caracterul »- ) iar paraml param2 paramN sunt parametrii 
corespunzători comenzii. Parantezele pătrate indică faptul că parametrii sunt 
opţionali, iar numărul lor variază în funcție de comandă şi de nevoile utilizatorilor. 


Separatorii pentru numele comenzii, opțiuni şi parametri sunt caracterele spațiu 
şi tab. În cazul în care se doreşte ca o comandă să se scrie pe mai multe rânduri, se 
utilizează caracterul „\” la sfârşitul fiecărei linii, cu excepția ultimei. Se pot 
introduce mai multe comenzi pe un singur rând, acestea fiind separate prin ,,;" 


2.1. Posibilitáti de ajutor 


Comanda help afişează lista tuturor comenzilor interne (builtin). Pentru a afla 
mai multe informaţii despre o anumită comandă din această listă, se va da o 
construcţie de forma help comandă. 


Comanda man [secțiune] comanda afişează o pagină de manual cu informaţii 
despre comanda specificată, cum ar fi sintaxa comenzii, o descriere succintă, 
explicarea opțiunilor suportate, semnificația parametrilor, comenzi înrudite etc. 


e Parametrul comanaă poate fi o comandă a sistemului, un nume de apel de 
sistem, o funcție C/C++ sau numele unui fişier de sistem pentru care se 
doresc a fi afişate informații. 


e Manualul este structurat pe mai multe secţiuni, începân 


d cu secțiunea | 
conținând nagini referitoare ln ramenzile haoh ci apei or ta P 
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destinată fişierelor de sistem utilizate de administratorii de rețea. 
Parametrul sectiune indică secțiunea consultată în vederea afişării paginii 
de manual dorite de utilizator. Implicit, se afişează pagina aparținând 
secțiunii inferioare corespunzătoare comenzii dorite. 


De exemplu, există informaţii pentru comanda bash kiii $i, totodatá, pentru 
primitiva de sistem ki11(). Pentru a obține pagina corespunzătoare comenzii kill 
utilizăm apelul man kill sau man 1 ki 11, iar pentru afișarea informaţiilor despre 
primitiva ki11 () se va folosi man 2 kill. 


Numeroase informaţii despre shell pot fi parcurse consultând man bash. 


Comanda whatis este utilă pentru a afla informaţii succinte despre 
funcționalitatea anumitor comenzi (precum şi numerele sectiunilor paginilor din 
manual), 

(infoiasi)$ whatis chmod 


chmod (1) - change file access permissions 
chmod (2) - change permissions of a file 


O altă comandă utilă este apropos cuvânt_cheie Şi are ca efect listarea tuturor 
informaţiilor corespunzătoare cuvântului precizat. 


Informaţii şi exemple de utilizare a unei anumite comenzi se pot obține cu 
ajutorul comenzii info. Numele comenzii dorite este dat ca parametru. De 
exemplu, dacă dorim să aflăm mai multe despre comanda 1s utilizăm: 


(infoiasi)$ info 1s 


Comenzile sistem suportá optiunea --help, care afişează modalitatea utilizării 
respectivei comenzi, precum şi o descriere succintă a opțiunilor suportate. 


2.2. Functionalitáti de bază 


Shell-ul de cele mai multe ori este apelat interactiv, în sensul că va dialoga cu 
utilizatorul, interpretând şi executând comenzile introduse de acesta. Pentru a se 
indica utilizatorului că shell-ul este gata să execute următoarea comandă, se va 
afişa un prompt. Prompt-ul diferă de la o versiune de sistem la alta sau de la un 
utilizator la altul. Astfel, în exemplul de mai jos, în cadrul prompt-ului stanasa 
este numele utilizatorului, iar infoiasi este numele maşinii pe care se lucrează. 
Acest prompt poate fi modificat, schimbând valoarea variabilei predefinite ps1 
(vezi mai jos). 

(stanasafinfoiasi /]$ pwd 
/ 


[stanasaQ8infoiasi /1$ PS1sSalut» 
Salut» pwd 
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Părăsirea shell-ului interactiv (cel curent) se realizează prin intermediul 
comenzii exit sau acționând combinația de taste CTRL+D (sfârşit de fişier în 
Linux). 


De asemenea, shell-ul poate fi apelat neinteractiv, o comandă sau grup de 
comenzi putând apărea ca argument al parametrului ,,-c" dat programului bash: 


(infoiasi)$ bash -c "ls -la" 


O comandá poate fi executatá in fundal (background) dacá la invocarea sa se 
adaugă simbolul „&” la sfârşitul comenzii. Un proces în fundal de cele mai multe 
ori nu va necesita nici o interacțiune directă cu utilizatorul, 


Fie două comenzi specificate în fundal: 


(infoiasi)$ (sleep 10; is -oh) & 


Un posibil rezultat este: 


[1] 3191 
(infoiasi)$ ps 
PID TTY TIME CMD 

1112 pts/0 00:00:00 bash 

3191 pts/0 00:00:00 bash 

3192 pts/0 00:00:00 sleep 

3193 pts/0 00:00:00 ps 

(infoiasi)$ total 76k : 
-Yw-r--r-- i user 61k Jan 13 17:11 bash.html 


ürwxr-xr-x 2 user 4.0k Nov 27 18:06 bashlib-0.2 
drwxrwxr-x 2 user 4.0k Nov 27 18:42 cgi-bin 
-rw-r--r-- i user 4.0k Jan 10 19:22 exemple.txt 
-YWXI-XY-X 1 user 98 Nov 27 18:39 form.cgi 
-Yw-rw-r-- 1 user 425 Nov 27 18:41 form.html 
-Yw-r--r-- i user 2.4k Jan 3 11:25 web.css 


Reamintim cititorului cá sleep aşteaptă un număr de secunde specificat (in 
exemplul de mai sus, 10 secunde). După lansarea execuției apare între paranteze un 
număr care indică al câtelea proces din fundal este, apoi PID-ul procesului generat 
pentru execuţia celor două comenzi. Imediat apare prompt-ul sistemului de operare, 
semn că se aşteaptă să se introducă o altă comandă, iar în exemplu am lansat 
comanda ps, ieşirea ei fiind urmată şi de rezultatul comenzii de listare a 
directorului curent care a fost apelată anterior (1s -oh). Comanda ps este utilizată 
pentru a lista procesele din sistemul de operare. O comandă înrudită este comanda 
COD 


Comanda jobs listează toate procesele care se execută în fundal. Comanda £g 
aduce în prim-plan un proces care se execută în fundal. Se poate transmite ca 
parametru numărul de proces aflat în fundal (cel din parantezele pătrate) pentru a 
indica procesul dorit. Comanda bg trimite în fundal, spre execuție, un proces 
suspendat prin CTRL«Z. 
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În cazul în care avem comenzi lungi si le utilizăm frecvent, le putem denumi cu 
ajutorul comenzii alias; 
(infoiasi)$ alias progs-'cd /home/user/so/MyProgs' 
(infoiasi)$ progs 
(infoiasi)$ pwd 
/home/user/so/MyProgs 


Eliminarea alias-urilor definite este posibilă cu ajutorul comenzii unalias; 


(infoiasi)$ unalias progs 


(infoiasi)$ progs 
bash: progs: command not found 


Comanda history afigeazá ultimele comenzi executate de utilizator, fiind utilà 
atunci cánd dorim sá executám comenzi introduse anterior. 


2.3. Comenzi utile 


În cadrul acestei secțiuni vom reaminti câteva dintre comenzile importante ale 
sistemului UNIX/Linux, utile mai cu seamă administratorilor şi proiectanfilor de 
situri Web. 


Specificatori 


Înainte de a vedea câteva dintre cele mai frecvent folosite comenzi, menţionăm 
faptul că shell-ul bash (ca şi alte sheil-uri) permite utilizatorului să recurgă la 
specificatori de fişiere. În loc de a furniza numele complet al unui fişier, vom putea 
utiliza următoarele meta-caractere (wildcards) pentru a înlocui părți din numele 
unui fişier: 


e simbolul ,,?" va înlocui un singur caracter, pe poziţia în care apare; 
e simbolul ,,*" va înlocui un număr de zero, unu sau mai multe caractere; 


e expresia [caractere] va funcționa ca un interval, numele de fişier 
potrivindu-se cu caracterele furnizate, 


De exemplu, specificatorul £i?[0-9]* va putea desemna nume de fişiere care 
încep cu caracterele „£” şi „i”, urmate de oricare alt caracter, apoi de una dintre 
cifrele de la O la 9, eventual fiind succedat de oricare alte caractere. Astfel, acest 
specificator se poate potrivi cu nume precum fiu7 sau fiu200.txt, dar nu cu 
final3. 


» 


Între delimitatorii „[1” mai poate să apară meta-caracterul „|” indicând o 
alternativă și meta-caracterul „!” reprezentând negația. 
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Pentru a specifica toate fişierele care încep cu litera „b”, urmată de orice caracter 
diferit de „i” sau anterior anterior „a”, apoi de alte caractere, vom putea scrie 
b[!ia]*. 


Informaţii despre fişiere 


Afişarea conținutului unui director se obține în urma apelării comenzii 1s. 
Aceasta suportă mai multe opțiuni, dintre care amintim: 


e -a listează şi fişierele ascunse (cele ale căror nume încep cu caracterul 


"y 
n Js 


e  -1 afişează formatul lung conținând informaţii suplimentare, cum ar fi cele 
referitoare la drepturile de acces, proprietar si grup, dimensiunea, data 
creării etc.; 


° -hare următorul efect: dimensiunile fişierelor sunt transformate din octeți 
în kilo-octeti (K) sau mega-octeți (M), pentru a fi mai ugor citite de 
utilizator; 


e -i va conduce la vizualizarea numărului i-nodului (indexului) fiecárui 
fisier din cadrul sistemului de fişiere (în UNIX, fiecărui fişier îi corespunde 
un număr de i-nod unic); 


e -R va lista si subdirectoarele, în mod recursiv. 


(infoiasi)$ 1s -1 
total 424 


drwxr-xr-x 2 stanasa profs 4096 Nov 24 13:25 bashlib-0.2 


-rw-r--r-- 1 stanasa profs 408186 Jan 8 13:58 carte-cgi.tgz 
drwxr-xr-x 11 stanasa profs 4096 Dec 19 11:57 html 
-YW-Y----- 1 stanasa profs 67 Nov 30 09:48 links 
drwx------ 2 stanasa profs 4096 Jan 10 14:21 mail 


Apelul de forma is -la este echivalent cu 1s -1 -a. Ín general, mai multe 
optiuni care nu sunt succedate de parametri suplimentari pot fi grupate ca şi cum ar 
fi o singură opțiune (se utilizează o singură dată caracterul „-” pentru specificarea 
opțiunilor). 


Comanda £i1e încearcă să determine tipul unui figer: 


(infoiasi)$ file bash.html 

bash.html: HTML document text 
(infoiasi)$ file form.cgi 

form.cgi: Bourne-Again shell Script text 
(infoiasi)$ file web.css 

web.css: C program text 
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Observám cá ín cazul ultimului fişier, comanda file a furnizat un rezultat 
eronat deoarece web. css este un fişier de foi de stiluri şi nu un program C (sintaxa 
CSS este apropiată de cea a limbajului C). 


Comanda au afişează dimensiunile tuturor subdirectoarelor din directorul curent, 
Se pot utiliza următoarele opțiuni: 


e -hare următorul efect: dimensiunile sunt scrise în kilo-octeti sau mega- 
octeți, pentru a fi cát mai uşor de citit de către utilizator, 


e -s Va afişa doar dimensiunea directorului curent. 
e ~a listează şi dimensiunile fişierelor, 


Un exemplu: 


(infoiasi)$ cd /tmp 
(infoiasi)$ du -h 


4.0k ./.font-unix 

4.0k ./.X1l1-unix 

4.0k ./kf£m-cache-500 

4.0k ./.esd 

85M ./music/Pink Floyd 
85M ./music 

4.0k . /nscomm40-user/1031 
4.0k -/nscomm40-user/7382 
12k ./nscomm40-user 

85M 


Comanda a£ listează informaţii privitoare la spațiul liber al memoriei nevolatile 
(partitiilor de disc). Această comandă posedă aceleași opţiuni ca şi comanda au. 


(infoiasi)$ df -h 


Filesystem Size Used Avail Use% Mounted on 
/dev/hda8 2.0G 885M 1020M 47% / 
/dev/hdai 3.4G 2.1G 1.3G 60% /C 
/dev/hda5 3.6G 3.1G 584M 85% /D 
/dev/hda6G 9.5G 9,.2G 328M 97% /E 
/dev/hdb : 650M 650M 0 100% /mnt/cdrom 


Aceste comenzi sunt utile îndeosebi atunci când apar probleme cu spaţiul de pe 
disc. 


Căutarea sofisticată a fişierelor este posibilă cu ajutorul comenzii fina. De 
exemplu, căutarea tuturor imaginilor GIF din contul utilizatorului curent: 


(infoiasi)$ find ~ -name '*.gif' -print 
Identificarea fişierelor utilizatorului coarin din directorul /tmp: 


(infoiasi)$ find /tmp -user codrin -print 
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Pentru mai multe amănunte, vezi man fina. 


Vizualizarea conţinutului unui fişier se poate realiza prin intermediul unei 
plelade de comenzi, dintre care menţionăm doar cat, more, less, tac, head şi 
tail, 


Prelucrarea atributelor unui fişier 


Orice fişier are un proprietar (owner) şi un grup (group) pentru care se pot 
specifica drepturi de acces. De asemenea, se pot stabili drepturi şi pentru ceilalţi 
utilizatori (others) care nu dețin fişierul în cauză şi care nici nu fac parte din grupul 
(sau grupurile) la care aparţine utilizatorul. 


În UNIX/Linux, drepturile asociate unui fişier sunt: 
e decitire („r”), 
e descriere (,w"), 
e de execuție (,,x”). 


Pentru directoare, drepturile prezintă o semnificație diferită, în sensul că dreptul 
„r” reprezintă dreptul de a accesa fişierele din acel director, ,w" permite 


adăugarea/ştergerea de fişiere, iar ,x" este dreptul de inspectare (afişare) a 
conținutului acelui director. 


De asemenea, pentru fişiere mai există drepturile Set-UID si Set-GID, care 
permit schimbarea identității efective a utilizatorului cu aceea a proprietarului 
fişierului pe durata execuției programului respectiv (e.g. comanda passwd). Acest 
lucru poate fi util la execuția unor scripturi CGI. 


(infoiasi)$ 1s -1 /usr/bin/passwd 
-r-s--x--x 1 root root 13536 Jul 12 2001 /usr/bin/passwd 


Drepturile de acces sunt vizualizate la comanda 1s -1 printr-o secvență de zece 
caractere. Primul caracter se referă la tipul fişierului (,,-" pentru fişier obişnuit, „a” 
pentru director, „1” pentru fişier tip legătură, „p” pentru pipe extern etc.), iar 
următoarele nouă sunt trei grupuri de câte trei caractere, primul grup pentru 
proprietar, al doilea pentru grup, iar ultimul corespunzător celorlalți utilizatori. 


Fiecare grup de trei caractere are aceeaşi semnificaţie: primul este pentru dreptul 
de citire („r”), apoi urmează cel pentru scriere („w”), ultimul fiind pentru execuţie 
(4). Dacă nu este setat un anumit drept, atunci va apărea caracterul „-”. 


Modificarea drepturilor se realizează prin intermediul comenzii chmod. Pentru 
proprietar se utilizează litera „u”, pentru grup „9”, iar pentru alti utilizatori „o”. 
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Pentru acordarea, respectiv revocarea drepturilor indicate mai sus corespund 
caracterele „+”, respectiv „-”. De exemplu, dacă se doreşte să se dea drepturi de 
citire grupului la care aparține utilizatorul pentru fişierul bash. html se va sorie: 
(infoiasi)$ chmod g*r bash, html | 
Anularea drepturilor de execuție şi scriere pentru grup si proprietar se và realiza 
prin: 
(infoiasi)$ chmod ug-wx bash.html 
Pentru a da dreptul de execuţie pentru toate categoriile de utilizatori (proprietar, 
grup şi alţii): 
(infoiasi)$ chmod +x bash.htmi 


Mai existá o modalitate de modificare a drepturilor, Fiecărui grup de drepturi i 
se asociază un număr, după cum urmează: fiecărui drept acordat Îi corespunde 
valoarea 1, iar pentru fiecare drept anulat 0. Astfel, rezultă un număr de trei cifre 
binare care se transformă în zecimal. 


De exemplu, pentru rw- asociem 110, care în zecimal este 6. Drepturile rwxr- 
xr-- gl rwx--x--x VOT corespunde valorilor 751, respectiv 711. Stabilirea 
drepturilor de citire, scriere pentru utilizator şi grup şi de citire pentru ceilalți se 
realizează astfel: 

(infoiasi)$ chmod 664 bash.html 

Pentru modificarea proprietarului se utilizează comanda chown: 
(infoiasi)$ chown busaco puiltin.htmi 

Aceastá comandá permite simultan si schimbarea grupului: 


(infoiasi)$ chown pusaco:webgroup builtin.html : 
(infoiasi)$ chown www:nobody /home/httpd/cgi-bin/ 


Comanda charp schimbă grupul unui fişier: 
(infoiasi)$ chgrp webgroup builtin.html 


2.4. Redirectionarea intrárilor si iesirilor 


Ín sistemul de operare UNIX/Linux (si nu numai) existá trei dispozitive logice 
standard de intrare/iesire: 


> intrarea standard (stdin) de la care se citesc datele de intrare; 
e ieşirea standard (stdout) unde se afişează datele de ieşire; 


e ieşirea de eroare standard (stderr) la care se afişează mesajele de eroare 
survenite în cadrul execuţiei unei comenzi. 
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Implicit, intrării logice standard îi este ataşată tastatura (dispozitivul fizic 
standard de intrare), iar ieşirea logică standard şi cea de eroare sunt atașate la ecran 
(dispozitivul fizic standard de ieşire). În fapt, fiecare proces are ataşat un terminal 
prin intermediul căruia interacționează cu utilizatorul via stdin, stdout şi stderr. 


De multe ori am dori ca în loc de tastatură sá trimitem datele de intrare stocate 
într-un fişier ori ca rezultatele să fie adăugate la un fişier. Aceste lucruri se pot 
efectua prin intermediul redirecționărilor despre care vom discuta în cele ce 
urmează: 


*  Redirectionarea intrării se realizeazá, prin intermediul operatorului de 
redirectionare ,,«", astfel: 


comanda « date de intrare 


De exemplu, ín loc sá introducem textul unui e-mail de la tastaturá, i] putem 
prelua dintr-un fisier existent: 
(infoiasi)$ mail busaco -S"Noua mea adresa" «adresa.txt 
Pentru stdin, descriptorul de fişier corespunzător este 0. De aceea, redirectio- 
narea intrării se mai poate realiza în următoarea formă: ; 
comanda 0< date de intrare 


e Dispozitivul logic stdout are descriptorul de fişier 1, iar variantele de 
redirectionare a ieșirii standard într-un fişier sunt următoarele: 


comanda > rezultate 
comanda i» rezultate 
comanda >> rezultate 


comanda i»» rezultate 


Primele două sunt identice comportamental: rezultatul va fi depus în fişierul 
specificat, Dacă acesta nu există va fi creat, altfel va fi suprascris. 


Ultimele două variante realizează acelaşi lucru: dacă fişierul nu există, va fi 
creat si va contine afigajul comenzii, altfel se va adăuga rezultatul comenzii la 
sfârșitul fişierului existent (conţinutul anterior nu se pierde). 


Exemple: 


(infoiasi)$ finger >>utilizatori 
(infoiasi)S cal -m i»luna, curenta 
(infoiasi)$ cat exemple3.txt exemple4.txt >exemple. txt 


In ultimul exemplu observăm utilizarea comenzii cat pentru concatenarea de 
fişiere. 


e  Redirecționarea dispozitivului stderr se realizează asemănător ca la 
dispozitivul de ieşire standard: 
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comanda 2> erori 
comanda 2>> erori 


Cititorul poate intui că 2 reprezintă codul numeric al descriptorului de fişier 
corespunzător ieşirii de eroare standard. 


e  Sepotredirecționa simultan atât intrarea, cât şi ieşirile: 


comanda <fisier_intrare >fisier_iesire 

comanda >fisier_iesire 2>fisier_erori 
comanda <fisier_intrare >rezultate 2>>erori 

e  Redirecţionarea se poate aplica mai multor comenzi: 


(comandal ; comanda?) «date >>rezultate 


Reamintim faptul că mai multe comenzi se pot scrie pe o singură linie utilizând 
ca separator caracterul ,,;". Mai întâi se execută prima comandă, care ia datele de 
intrare din fişierul date, iar rezultatul este depus în rezultate. Apoi se execută şi 
a doua comandă, care preia datele din acelaşi fişier de intrare, iar rezultatul este 


adăugat în rezultate. 


Pentru a grupa mai multe comenzi pentru a fi executate ca o unitate de program, 
avem la dispoziţie două construcții: 


( lista comenzi ) 
( lista comenzi; ) 


Pentru prima formá, lista de comenzi va fi executatá de un sub-shell (proces- 
-copil) al procesului shell curent (variabilele eventual setate de comenzile din listá 
nu vor fi accesibile la terminarea execuției comenzilor din listă). Pentru a doua 
formă, lista de comenzi se va executa în shell-ul curent, nefiind creat un alt 
sub-shell. Caracterul „;” trebuie obligatoriu specificat, 


Un exemplu: 
(infoiasi)$ (find / -name dvips »rezult ; rm -f rezult-) 
2>/dev/null & 


e Se pot realiza redirectionári spre fişiere deschise specificate nu prin numele 
fişierului, ci prin descriptorul asociat (prin operația de duplicare a 
descriptorilor). Astfel, putem scrie: 

comanda 2>&1 

Acest lucru va conduce la afigarea mesajelor destinate dispozitivului standard de 
eroare (stderr) la dispozitivul de ieşire (stdout). 


Un alt exemplu: 


echo "Mesaj de eroare" »&2 
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Mesajul nu va fi afisat la stdin (cum ar fi fost normal), ci va fi redirectionat spre 
fişierul asociat descriptorului 2 (care este, de obicei, stderr, dacă nu a fost 
redirecționat anterior). Astfel, o construcție relativ mai complexă este următoarea: 


(infoiasi)$ mail www -s"Erori" «erori.dat 1»/dev/null 2>&1 


Descriptorul 2 (stderr) este redirecționat la descriptorul 1, iar acesta va fi 
redirecționat spre /dev/null. Astfel, ambele ieşiri vor fi ignorate (nu ne 
interesează ce mesaje poate afişa comanda). Datele de intrare (mesajul trimis 
utilizatorului www) vor fi preluate din fişierul erori . dat. 


2.5. Mecanismul pipe 


Mecanismul pipe constă în înlănțuirea comenzilor, în sensul cá prima comandă 
transmite rezultatele de la ieşirea standard la intrarea standard a celei de-a doua 
comenzi şi aşa mai departe (a doua comandă trimite rezultatul la intrarea celei de-a 
treia comenzi etc.). Acest lucru duce la eliminarea fişierelor temporare necesare 
realizării unor astfel de operaţii. Simbolul corespunzător acestui mecanism este în 
cadrul shell-ului „|”. 


Sintaxa generală este furnizată în continuare: 


comandal | comanda2 | | comandaN 


În exemplul de mai jos, prima comandă obține lista tuturor fişierelor cu extensia 
„html, se transmite lista celei de-a doua comenzi care numără câte astfel de fişiere 
există (fiecare nume de fişier este afişat pe un rând): 


(infoiasi)$ ls *.html -1 | wc -1 


Varianta care nu utilizează facilităţile oferite de mecanismul pipe ar fi putut fi: 


(infoiasi)$ 1s *.html -1 »temporar ; wc -l «temporar 


O comandă utilă pentru mecanismul pipe este xargs. Aceasta are drept 
parametru numele unei comenzi cu unele dintre opțiunile sale şi citeşte date de la 
intrarea standard pe care le trimite comenzii specificate. De exemplu, dacă avem un 
fişier cu o listă de nume de conturi şi dorim să aflăm cine sunt proprietarii, 
procedăm astfel: 


(infoiasi)$ cat adrese | xargs finger -pm 
(infoiasi)$ cat adrese | xargs finger -pm | grep Login: 
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3. Programarea în bash 


3.1. Scripturi bash 


Comenzile bash pe care dorim să le execute shell-ul pot fi stocate in fişiere, 
Acestor fişiere li se dau drepturi de execuție (cu comanda chmod +x fişier), după 
care pot fi executate ca orice altă comandă. Fisierele conţinând comenzi ale unui 
limbaj de tip script, cum este cazul bash-ului, se mai numesc şi scripturi. 


De obicei, la începutul fiecărui fişier script se stabileşte Shell-ul care va fi 
invocat de către sistemul de operare pentru a se executa comenzile si construcțiile 
bash. Pentru bash vom avea: 

#!/bin/bash 
Pentru a executa scripturile, putem utiliza următoarele modalități de apelare: 


(infoiasi)$ . script [ parametri ] 
(infoiasi)$ ./script [ parametri 13 
(infoiasi)$ bash script | parametri ] 


Parametrii pot să lipsească, dacă scriptul dorit a fi rulat se poate apela şi fără 
aceștia. 


Comentariile se introduc prin simbolul „#” şi sunt valabile până la sfârşitul liniei 
(din acest punct de vedere, sunt similare comentariilor // din C++ sau Java). 


În cele ce urmează vom vedea că shell-ul bash oferă toate construcţiile unui 
limbaj de programare de nivel înalt, punând la dispoziţia administratorilor de 
sistem un bogat set de facilități, 


Spre exemplu, următorul script numără fişierele şi directoarele din directorul 
curent: 
3! /bin/bash 
fisiere="1s -al | wc -1" 
echo $(($fisiere - 2)) 


Se scad intrările directoarelor . (directorul curent) şi . . (directorul-párinte). 
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Utilizator 


l- Depanare 


Script hash 
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Variabile Pusarea variabilelor Forme speciale 
predefinite spre script ale variabilelor 


| | 


Controlul fluxului 


| 


Comparatii Operații Operații 


cu fisiere matematice 


1 


Comenzi ÜNIX/Linux Comenzi bash inteme 


DEED pe: a 


Fig. 3.1 — Execuţia scripturilor bash 


3.2. Variabile 


PEN am dori ca anumite rezultate să le stocám temporar în memorie pentru 
prelucrári ulterioare. Acest lucru poate fi realizat fie cu ajutorul unor fişiere 
temporare (soluţie ineficientă, consumatoare de resurse ale sistemul Pia 
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intermediul variabilelor puse la dispoziție de shell. Pentru shell-ul bash, toate 
variabilele sunt de tip şir de caractere, ele fiind create „din zbor”. 


Pentru a vizualiza toate variabilele definite şi valorile corespunzătoare acestora, 
trebuie utilizată comanda set. Initializarea unei variabile se realizează cu 
operatorul „=” (acest operator nu trebuie să fie precedat sau succedat de spaţii): 


variabila=valoare 


Numele variabilei trebuie precedat de simbolul ,,$" atunci când referim valoarea 
respectivei variabile. Pentru bash, avem la dispoziţie şi comanda internă let, 
pentru a realiza atribuiri de valori unei variabile. Sunt acceptați şi operatorii +=, -= 
etc. prezenţi în C ori Perl. 


De asemenea, shell-ul bash pune la dispoziţie un bogat set de facilităţi pentru 
evaluări matematice utilizând numere întregi (în alte shell-uri posibile doar cu 
ajutorul comenzii expr). Astfel, pentru a evalua o expresie vom scrie acea expresie 
între paranteze rotunde duble precedate de caracterul „s”. Pentru efectuarea de 
calcule fractionare se poate utiliza comanda bc. 


Afişarea conținutului unei variabile se poate realiza cu ajutorul comenzii echo. 


(infoiasi)$ a = 10 

bash: a: command not found 
(infoiasi)$ a-10 
(infoiasi)$ echo $a 

10 

(infoiasi)$ v-"-o cgi-bin" 
(infoiasi)$ is $v 

total 4 

-YWXY-XI-X i user 
(infoiasi)$ let CONTOR-0 
(infoiasi)$ let CONTOR+=3 
(infoiasi)$ echo SCONTOR 
3 

(infoiasi)$ echo $((12 + 21/3)) 
19 

(infoiasi)$ v-15 ; z 
(infoiasi)$ echo S(( 
2 

(infoiasi)$ echo 'expr 3 - 1^ 
2 


99 Nov 27 18:42 form.cgi 


-4 
5 - $v % S$z)] 


Pentru ca echo să nu treacă automat la rând nou după afişarea valorilor, se va 
utiliza opțiunea ,-n". Opțiunea ,-e" permite utilizarea codurilor escape (cele 
introduse de backslash). Aceste coduri escape (similare celor prezente în limbajele 
C sau Perl) sunt: 


Li Na emite un sunet (alarm). 
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e  \b deplasează cursorul cu o poziţie spre stânga (backspace). 

. \£ trece cursorul pe rândul următor, rămânând pe aceeaşi coloană. 
° An trece cursorul pe prima poziție de pe linia următoare. 

*.— vr mută cursorul la începutul liniei curente. 

ə — st inserează un caracter fab. 

E NA inserează un caracter „\”. 

e V' inserează un apostrof. 

e N" inserează o ghilimea. 


e Mann inserează caracterul care are codul ASCII nnn (poate avea 
una, două sau trei cifre), în octal. 


e vxnnn inserează caracterul care are codul ASCII nnn (poate avea 
una, două sau trei cifre), cod dat în hexa. l 


O comandă înrudită este pri änă 
k E printf (foarte asemănătoare ca functionali 
funcţia printf() din C). ny 


Atunci când dorim după o variabilă să afişăm imediat un alt şir de caractere 
numele variabilei trebuie încadrat de acolade. 


(infoiasi)$ nume-Maria 
(infoiasi)$ echo Ana$nume 
AnaMaria 


(infoiasi)$ echo S(nume)na 
Mariana 


(infoiasi)$ echo $numena 
(infoiasi)$ 


Ultima comandă afișează conținutul variabilei vna (în cazul nostru nefiind 
definită în prealabil, va fi considerată vidă). 


Dacă în loc de ghilimele vom folosi apostrofuri, atunci shell-ul nu va mai 
expanda valoarea variabilei: 


(infoiasi)$ curs-Web 

(infoiasi)$ echo "Cursul meu preferat este $curs" 
Cursul meu preferat este Web 

(infoiasi)$ echo 'Cursul meu preferat este $curs' 
Cursul meu preferat este $curs 
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O variabilă poate primi ca valoare rezultatul execuţiei unei comenzi. Pentru 
acest lucru comanda trebuie încadrată de apostrofuri inverse: 


(infoiasi)$ vs'wc -l1 void.html" 

(infoiasi)$ echo $v 

8 void.html 

(infoiasi)$ v="cat void.html' 

(infoiasi)$ echo $v 

«html»«head» 
«title»Titlu«/title»«/head» 
«body»Text«/body»«/html» 


Observăm că in ultima âtribuire variabila v nu confine caracterele 
corespunzătoare sfârșitului de linie. 


O variantă identică semantic este următoarea (preferată în versiunea 2.0 a 
shell-ului bash): 


(infoiasi)$ ve$(wc -l void.htmi) 
Pentru a şterge o variabilă se poate utiliza una dintre variantele: 


(infoiasi)$ unset variabila 
(infoiasi)$ variabila= 


Citirea de la tastatură a valorii unei variabile se realizează cu comanda read. 
Comanda readonly stabileşte că valorile variabilelor specificate nu pot fi 
modificate (aşadar, variabilele devin constante). 


(infoiasi)$ read nume 

Sabin 

(infoiasi)$ echo $nume 

Sabin 

(infoiasi)$ nume="Sabin Corneliu” 
(infoiasi)$ echo $nume 

Sabin Corneliu 

(infoiasi)$ readonly nume 
(infoiasi) $ nume-Victor 

bash: nume: readoniy variable 
(infoiasi)$ unset nume 

bash: unset: nume: cannot unset: readonly variable 


Pentru ca o variabilă să aibă valoarea disponibilă proceselor-copil (e.g. sub- 
-shell-uri) ale shell-ului curent, va trebui exportată cu ajutorul comenzii export: 


export nume TERM PS1 
În mod normal, variabilele nu sunt vizibile în procesele-copil ale shell-ului, ele 
fiind considerate locale procesului shell respectiv. 


Atribuirea de valori unei variabile poate fi o atribuire condiţionată. 
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e Construcția $(var:-sir), unde var este numele unei variabile, iar sir 
este un sir de caractere, se evalueazá la valoarea variabilei var dacá aceasta 
este definită, iar în caz contrar, la şirul specificat. 


(infoiasi)$ echo $(anotimp:-Iarna) 
Iarna 

(infoiasi)$ echo $anotimp 
(infoiasi)$ anotimp-"E iarna iar" 
(infoiasi)$ echo $(anotimp:-Iarna) 
E iarna iar 

(infoiasi)$ echo $anotimp 

E iarna iar i 


e Expresia $(var:-sir) se evaluează asemănător expresiei precedente, iar 
în plus, în cazul în care variabila var nu este setată, se inițializează cu şirul 
de caractere indicat (util pentru cazul în care dorim să asignăm o valoare 
implicită unei variabile, dacă aceasta nu este definită). 


(infoiasi)$ unset cale 
(infoiasi)$ echo Ș(cale:=/tmp) 
/tmp 

(infoiasi)$ cale=/home/user/tmp 
(infoiasi) $ echo $(cale:-/tmp) 
/home/user/tmp 

(infoiasi)$ unset cale 
(infoiasi)$ echo $(cale:-/tmp) 
/tmp 

(infoiasi)$ echo $cale 

/tmp 


e Dacă variabila var este setată, atunci valoarea expresiei $ (var: +sir) este 
dată de şirul specificat şi valoarea variabilei nu se modifică, altfel valoarea 
respectivei expresii este şirul vid. 


(infoiasi)$ unset comanda 
(infoiasi)$ echo Ș (comanda: 41s) 


(infoiasi)$ echo $comanda 


(infoiasi)$ comanda-pwd 
(infoiasi)$ echo Ș (comanda:+1s) 
is 

(infoiasi)$ echo $comanda 

pwd 


e Construcția $(var:?sir) generează un mesaj de eroare sir dacă variabila 
vaz nu este setată, iar în caz contrar, se evaluează la valoarea variabilei 
specificate. 


(infoiasi)$ cale= 

(infoiasi)$ echo $(cale:?"Calea de directoare este vida.") 
bash: cale: Calea de directoare este vida. 

(infoiasi)$ cale=/home/busaco 

(infoiasi)$ echo $(cale:?'Calea de directoare este vida.") 
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/home/busaco 
Numărul de caractere memorate într-o variabilă var se obține în urma evaluării 
expresiei $ (var). 


(infoiasi)$ un_autor="Sabin Corneliu Buraga" 
(infoiasi)$ echo $(tun_autor) 
21 


Variabile predefinite 


În cadrul shell-ului avem acces la un număr de variabile predefinite, cele mai 
semnificative dintre acestea regăsindu-se în tabelul de mai jos (prin convenţie, 
variabilele predefinite ale sistemului au numele dat cu majuscule): 


Tabelul 3.1 — Variabile predefinite în bash 


Descriere 


F 
| 
P | 
| Conține calea completă a directorului corespunzător]; 
dutilizatorului curent. În cadrul specificatorilor de fişier, $HOMEI 


[poate fi substituită de caracterul tilda „~”. 


nează numele serverului. 


ul maşinii (procesorului). 


Furnizează tip 


EP i 
Descrie tipul sistemului în formatul procesor — firma; 
i 


Indică sheli-ul implicit. 


care a generat această instanță a shell-ului. 


Indică fişierul 
| BASH_VERSION | 


Furnizează versiunea bash. y 


| Conține numele fişierului unde sunt depozitate mesajele de: 
“e-mail primite. 
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à Reprezintă numărul de secunde la c care shell- ul verifică dacă 
Is au primit noi mesaje de e-mail. Dacă variabila nu este setată, 
atunci este dezactivată opțiunea de căutare automată a noilor: 


mesaje primite, i 


i 
a 
i 
i MAILCHECK 
j 


i 
i 
r 
; PS1 | 
EE înca aliate a Ie E ar LE wl ele co p an fecu adu atac at a MEO 
p "—"—"—————————————————————— 
ELI 


j Reprezintă prompt-ul secundar al shell-ului (apare atunci; 
[când o comandă este scrisă pe mai multe rânduri). 


DOE Ea Seini ET in e ritm i FD RR TL a A E AE rime ii c 


" 
*  PS2 


Conine lista de directoare utilizată de shell pentru căutarea, 
icomenzilor (fişierelor executabil lè). 


i Desemneazá lista de directoare pentru cáutarea directoarelor! 
utilizate ca parametri ai comenzii cd. | 


IH 
| Furnizeazá directorul curent de lucru (cel care a fost stabilit, 
ide comanda că). | 

i 


m EUR eie. To ia 


i i 
i Reprezintă vechiul discior de lucru, a care era a directorul 
jcurent când s s-a a utilizat ultima dată comanda cá. 


i p cartare utilizate c ca Mcd Implicit este şirul} 
format de caracterele spațiu, tab si newline, 3 


H 


Desemnează ID: ul utilizatorului curent, i 


eri A ein Durin a Ta Di Tre a CEE a Dame in a Ta d ral Ae meris AR 


Speciică 1 Ins ul efectiv al utilizatorului curent, 


Soopeli ista a grupurilor » care e aparține u e utilizatorul : 
Conti un număr generat Caio cuprins între O si i 32767., 
i ‘După utilizare, valoare variabilei. se e modifică automat. ; 


Indici, in nte: Gr ma s-a scurs de la invocarea: 
&shell-ului. ! 


i 
H 
— 
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Cáteva exemple: 


(infoiasi)$ echo $BASH VERSION 
2.04.11(1)-release 
(infoiasi)$ echo $MACHTYPE 
i386-redhat-linux-gnu 
(infoiasi)$ echo $LOGNAME 
stanasa 

(infoiasi)$ echo $MAIL 
/var/spool/mail/stanasa 
(infoiasi)$ echo $HOME 
/home/stanasa 

(infoiasi)$ echo TERM 


linux : 
(infoiasi)$ echo ŞRANDOM 
21144 
(infoiasi)$ echo ȘRANDOM 
10993 
(infoiasi)$ echo $SECONDS 


9369 


Valorile variabilelor de sistem predefinite pot fi consultate prin intermediul 
comenzii sec. De asemenea, asupra lor se pot utiliza comenzile export, xeadonly 


Sau unset. 


Variabile speciale 
Există câteva variabile speciale foarte utile în scripturi: 


e  $0 conţine numele scriptului; 


e $1, $2, .., $9 reprezintă parametrii din linia de comandă ($1 conține 
primul parametru, $2 — al doilea etc.); 


e  $* furnizează lista tuturor parametrilor din linia de comandă; 
e se similar cu e*, dar parametrii sunt considerați elemente separate; 
e $8 desemnează numărul parametrilor din linia de comandă; 


e $$ furnizează PID-ul procesului curent (această variabilă se poate folosi 
pentru a crea fişiere temporare cu nume unic, de exemplu având numele 


/ tmp/nume$$); 


e $? confine codul întors de ultima comandă executată (zero semnificànd 
true sau un numár pozitiv desemnánd valoarea logicá £a1se); 


e $1! furnizează PID-ul ultimului proces executat în fundal; 


e  $- desemnează opțiunile cu care a fost lansat shell-ul respectiv. 


În cazul în care avem mai mult de nouă parametri în linia de comandă, pentru a 
putea avea acces la valorile tuturor parametrilor, vom utiliza comanda shift. 
Aceasta realizează o deplasare a elementelor listei de parametri în sensul următor: 
valoarea lui $1 se pierde şi primeşte valoarea lui $2, $2 ia valoarea lui $3 şi aga mai 
departe, iar $9 va lua valoarea parametrului următor celui referit de $9 înainte. 


Pentru a observa cum lucrează câteva dintre variabilele speciale de mai sus, vom 
considera fişierul cma: 


+ !/bin/bash 


echo "Numele scriptului: $0" 
echo "Parametri: $*" 

echo "Numarul de parametri: $4" 
echo "PID: $$" 


Apoi considerăm următoarele execuții: 


(infoiasi)$ . cmd Perl C Java bash 
Numele scriptului: bash 

Parametri: Perl C Java bash 

Numarul de parametri: 4 

PID: 926 

(infoiasi)$ ./cmd Victor Stefan Sabin 
Numele scriptului: ./cmd 

Parametri: Victor Stefan Sabin 
Numarul de parametri: 3 

PID: 1465 


Se observá faptul cá pentru primul apel, figierul care se executá este bash 
(shell-ul), care execută comenzile din fişierul cma (numele său este parametru). 
A doua variantă de apel aduce rezultatul scontat: cma este fişierul care se execută. 


3.3. Instrucţiuni 


Shell-ul bash pune la dispoziţia programatorilor o serie de structuri de test: i£ şi 
case şi repetitive: for, while, until. 


Structura condifionalá i£ are următoarea sintaxă: 


if 
lista de comenzi 1 
then 
lista de,.comenzi 2 
[ elif 
lista de comenzi,. 3 
then 
lista de comenzi, 4 ] 
Í else 


lista de comenzi N ] 
fi 


80 PROGRAMARE WEB ÎN BASH ŞI PERL 


BASH 81 


Secvența elif poate apărea de câte ori este nevoie. Dacă ultima comandă din 
prima listă de comenzi se termină cu succes (returnează valoarea zero), se execută 
instrucţiunile care urmează lui then, altfel se continuă cu următorul elif sau eise. 
Când se ajunge pe o ramură, elif se execută ca şi cum ar fi un alt if. Cuvântul £i 
este oglinditul lui i£ şi marchează sfârșitul structurii condiționale. 


În programul de mai jos (denumit rmtemp) apare structura if: 


4! /bin/bash 

Xf 
echo "Stergerea fisierului \"temp\"" 
rm temp 2>/dev/null i 


then 

echo "Fisierul \"temp\" a fost sters," 
else 

echo "Fisierul \"temp\" nu a putut fi sters," 
fi 


Comanda rm şterge fişierul temp dacă există şi poate fi şters (e.g. utilizatorul 
care apelează scriptul are drepturile necesare), altfel afişează un mesaj de eroare 
(mesajul nu apare pe ecran, întrucât ieşirea standard de eroare este redirectionatá la 
/dev/nu11). În urma execuţiei se obține: 

(infoiasi)$ ./rmtemp 

Stergerea fisierului "temp" 
Fisierul "temp" nu a putut fi sters. 
(infoiasi)$ ls > temp 

(infoiasi)$ ./rmtemp 


Stergerea fisierului "temp" 
Fisierul "temp" a fost sters. 


Sintaxa structurii conditionale case este cea de mai jos: 
case expresie in 

[ sir de valori 1 ")" lista de comenzi 1 ";;" ] 

[ sir,de valori N ")" lista, de comenzi N ";;" ] 


esac 


Mai întâi se evaluează expresia, după care se încearcă o potrivire cu una dintre 
valorile din şiruriie specificate. Dacă s-a găsit o potrivire (acesta va fi prima în 
ordinea definirii valorilor), se va executa lista de comenzi corespunzătoare, după 
care structura case se va termina. Cuvântul esac este oglinditul lui case şi termină 
o construcție case. 


Drept exemplu, considerăm că fişierul opt are următorul conţinut: 
+! /bin/bash 


case $1 in 


-a|-[fx-z] ) echo "S-a detectat o optiune valida";; 
ex echo "S-a detectat o optiune" ;; 
stop|start ) echo "S-a detectat un parametru valid" ;; 
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Tt] echo "S-a detectat un parametru" ;; 
*- o3 echo "Mod de utilizare: $0 param" ;; 

esac 


Pentru delimitarea mai multor valori, se utilizează caracterul ,,|". Pot apărea 
wildcard-uri (,,*" va ţine loc de zero sau mai multe caractere, iar „?” va ţine locul 
unui singur caracter). Primul sir este echivalent cu -a|-£|-x|-y|-z. Al doilea va 
selecta toate cuvintele care încep cu caracterul ,,-". Construcţia ?* va accepta toate 
cuvintele nevide (semnul de întrebare cere existența unui caracter). 


Un alt script care verifică dacă parametrul $1 este număr întreg: 


case "$1" in 
4 sir vid sau numai '-' ori '«*' 
pa |) return 1:; 
4 aparitia unui caracter care nu e cifra 
[-*1*[10-9]*) return 1;:; 
$ in regula 


[-*]*) return 0;; 
+ exista un caracter care nu e cifra 
*[10-9]*) return 1;; 
# in regula 
rI return 0;; 
esac 


Dacă formatul este în regulă, se returnează codul 0 (true), în caz contrar - 1. 


Din acest exemplu putem remarca faptul că pentru a ieşi forțat dintr-un script 
sau dintr-o funcţie definită de utilizator (vezi mai jos) vom utiliza comanda 
return urmată de un cod de stare. Comanda exit va determina părăsirea shell-ului 
curent. 


O altă comandă utilă este select, care permite realizarea de interacțiuni în mod 
text. Următorul exemplu dă utilizatorului posibilitatea să aleagă între două opțiuni: 


OPTIUNI="Salutari Iesire" 
select opt in ȘOPTIUNI; do 


if [ $opt = "Iesire" ]; then 
echo "Am terminat..." 
exit 

elif | $ọpt = "Salutari" ]; then 


echo "Salut! Ce mai faceţi?" 
else 4 nici una din optiuni 
clear # stergem ecranul 
echo "Optiune necunoscută..." 
fi 
done 


Pentru a realiza interacțiuni mai avansate (cu posibilitatea de a construi meniuri, 
ferestre de dialog etc.), putem recurge la programul dialog. Astfel, pentru a genera 


o fereastră de dialog (de tip confirmare) în care utilizatorul are posibilitatea de a 
apăsa pe unul dintre butoanele „Yes” sau „No”, vom scrie următorul script: 
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dialog --title "Fereastra de confirmare" --clear \ 
--yesno "Continuam cu programarea in pash?" 15 61 


case $? in 


9) 
echo "S-a ales DÀ.";; 
1) 
echo "S-a ales NU.";; 
255) 
echo "S-a apasat ESC.":: 
esac 


n, 


Comenzile pot fi executate condiționat folosind operatorii „&&” $i | |^: 


e Construcția: comandal && comanda? funcționează astfel: se execută prima 
comandă, iar dacă aceasta se încheie cu succes (returnează codul 0), se 
execută şi cea de-a doua comandă. 


e Pentru comandal || comanda2 lucrurile decurg similar, doar cá a doua 
comandă se execută atunci când prima întoarce un cod de eroare (nenul). 


Un exemplu: 
(infoiasi)$ gcc gaen.c -0 gaend -02 && strip gaend 


Structura £or are urmátoarea sintaxá: 


for var [ in text ] 
do f 

lista de comenzi 
done 


Variabila var va lua succesiv valori din textul specificat (cáte o linie). Dacá 
textul lipseste, variabila va lua ca valori parametri transmiși in linia de comandă. 


Programul de mai jos va genera un fişier conținând informaţii despre fiecare 
utilizator conectat: 


for U in "who | cut -ci-8' 
do rud , 
finger $U >> lista utilizatori 


done 


Dupá cum am vázut, in bash, în locul construcției ^who | cut -c1-8` putem 
scrie $( who | cut -c1-8 ). 


O formă alternativă este următoarea, similară celei din limbajele Peri, C sau 
Java: 


for (( expri ; expr2 i expr3 )) 
do 

lista de comenzi 
done 


Sintaxa structurii repetitive while este furnizatá in continuare: 
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while 
lista de comenzi 1 
do 
lista de comenzi, 2 
done 


A Se execută prima listă de comenzi. Dacă ultima comandă din prima listă se 
încheie cu succes (returnează un cod de eroare nul), atunci se execută şi cea de-a 
doua listă, după care se reia bucla, altfel se iese din structura repetitivă. 


Următorul script va simula execuţia comenzii cat: 
while read -r linie 
do 

echo "$linie" 
done 


Un alt exemplu, emulánd structura repetitivă for prezentă în limbaje precum C 
Perl sau Java, este dat în continuare: l 


CONTOR=0; 

while [ $CONTOR -lt 33 ]; do 
echo Valoarea contorului este SCONTOR 
let CONTOR=CONTOR+1 

done 


Structura until este asemănătoare cu while şi are sintaxa: 


until 
lista de comenzi 1 
do 
lista _de comenzi 2 
done 


Diferenţa constă în faptul că execuţia ciclului se realizează atunci când ultima 


comandă din prima listă se încheie cu eşec (returnează o valoare nenulă a codului 
de eroare). 


Un exemplu: 


CONTOR=33 

until [ $CONTOR -lt 7 ]; do 
echo Valoarea contorului este $CONTOR 
let CONTOR-=1 

done 


Pentru a ieşi forțat dintr-un ciclu repetitiv se poate folosi break, iar pentru a 


trece direct la următoarea iteratie se va utiliza continue, ca în limbajele C sau 
Java. Un exemplu: 


for dir in $PATH; do 
test -z "$dir" && dir=. 
if test -f $dir/tail; then 
tail-"$dir/tail" 
break 
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fi 
done 
echo "Am gasit comanda tail: $tail" 


3.4. Comanda test 


Bash-ul permite utilizarea expresiilor condiţionale prin intermediul comenzii 
test. Aceasta are o formă scurtă, din care lipseşte numele comenzii, iar condiţia 
este încadrată de parantezele drepte ,, 1". 


Cu ajutorul lui test se pot efectua comparații aritmetice şi asupra unor şiruri de 
caractere, precum şi teste asupra fișierelor. 


Pentru a testa diverse condiţii, vom utiliza următoarele: 


e — teste privitoare la fişiere 
e -a fişier- true dacă fişierul există. 
e -a fisier- true dacă este director. 
e -e figier- true dacă fişierul existá. 
e -£ fişier- true dacă fişierul există şi este un fişier obişnuit. 
e -g fişier- true dacă fişierul există şi aparține grupului. 
ə -h fişier- true dacă fişierul există şi este o legătură simbolică. 
e -p fişier- true dacă fişierul există şi este de tip pipe. 
e -r fişier- true dacă fişierul există şi poate fi citit. 
e -s fişier- true dacă fişierul există şi are dimensiunea nenulă. 


ə -n fişier - true dacă fişierul există şi aparţine utilizatorului 
curent. 


e -w fişier- true dacă fişierul există şi poate fi modificat. 

e -x figier- true dacă fişierul există şi este executabil. 

ə -u fişier - true dacă fişierul există şi este o legătură simbolică. 

e -n fisier- true dacă fişierul există şi a fost modificat de când a 
fost citit ultima dată. 


e  fişieri -nt fişier? - true dacă fişierul 1 este mai nou decât 
fişierul 2. 

e fisierl -ot figier2- true dacă fişierul 1 este mai vechi decât 
fişierul 2. 
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e  figierl -ef fişier2 - true dacă fişierul 1 şi fişierul 2 sunt 
acelaşi dispozitiv şi au aceleaşi numere de identificare (aceleași 
inode-uri). 


e — teste referitoare la variabile 


e -z variabilă - true dacă variabila este nesetatá (sau conţine un 
sir vid de caractere). 


e [-n] variabilá- true dacă variabila este setată. 


e — teste privitoare la şiruri de caractere şi numere 


ə girl == şir2- true dacă şirul de caractere | coincide cu şirul 2; 
se poate utiliza un singur egal. 


e girl != şir2- true dacă cele două şiruri sunt diferite. 
e girl < sir2- true dacă şirul 1 este înaintea şirului 2 în ordinea 
lexicografică. 


e girl > şir2 - true dacă şirul | este după şirul 2 în ordinea 
lexicografică. 

e  axg1 OP arg2, unde OP poate fi: -eq, -ne, -1t, -le, -gt sau -ge - 
true dacă operatorii aritmetici binari returnează true; aceştia au 
semnificaţiile de egal, diferit, mai mic, mai mic egal, mai mare şi, 
respectiv, mai mare egal, iar arg! şi arg2 pot fi numere pozitive 
sau negative. 


De menționat faptul că în bash, valoarea de adevăr true este echivalentă cu 0, 
iar valoarea logică false este dată de un număr nenul, 


Exemplul următor listează directoarele din directorul curent: 
4! /bin/bash 


for director în * # variabila va lua ca valori numele 


do $ tuturor fişierelor din directorul curent 
if [ -d $director ] 
then + afiseaza numele directorului 
echo $director 
fi 
done 


Programul de mai jos afişează toți parametrii transmişi la linia de comandă: 
$!/bin/bash 


echo 
echo "Parametrii scriptului $0" 


echo 
nr=0 # initializare contor 
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while 
( $1 ] + cat timp avem parametri 
do 
nr-$(($nr*1)) 3 incrementare contor 
echo Parametrul $(nr): $1 
shift + shift spre stanga a parametrilor 
done 
echo "-------------c--0oc0o000c-002-- * 


echo "Numarul total de parametri: $nr" 


Observăm cá, deşi avem mai mult de nouă parametri, scriptul îi afişează pe toti. 


3.5. Scripturi sistem 


În continuare vom prezenta o serie de fișiere de comenzi bash speciale, utilizate 
îndeosebi la configurarea sesiunii de lucru. 


Shell-ul permite ca fiecare utilizator să poată scrie un script care să fie executat 
la fiecare început de sesiune de lucru în sistem. Acest fişier rezidă în directorul 
home (indicat după cum am văzut de variabila sistem HOME) al utilizatorului şi 
poate fi regăsit sub numele de .bash profile sau .profile. În cadrul acestui 
fişier se pot defini alias-urile comenzilor folosite frecvent, se pot stabili diferite 
valori ale variabilelor de mediu (e.g TERM ori PS1) sau se pot executa diverse 
comenzi (de exemplu, să se afişeze cu echo un mesaj de bun venit sau data 
curentă). 


În plus, fiecare utilizator poate avea un script care va fi rulat la momentul 
părăsirii sesiunii, acest fişier purtând numele .bash_logout şi fiind localizat tot în 
directorul home al acelui utilizator. 


Administratorul sistemului poate pregăti diferite fişiere de inifializare, valabile 
pentru toti utilizatorii. Aceste fişiere script sunt stocate în directorul /etc. De 
exemplu, /etc/profile care va fi executat la oricare deschidere a unei noi sesiuni 
de lucru a fiecărui utilizator. La crearea unui cont, în directorul home al 
utilizatorului proaspăt creat vor fi plasate copii ale fişierelor .bash_profile şi 
.bash logout regăsite în directorul /etc/skel, utilizatorul putându-le ulterior 
modifica după dorinţă. 


Un exemplu de script .bash_profile standard poate fi: 


+ .bash profile 
i incarcam alias-urile si functiile 
if [ -£ -/.bashrc ]; then 
-/.bashrc 
fi 
+ modificam mediul 
PATH=$ PATH: $HOME/bin 
BASH, ENV-$HOME/.bashrc 
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USERNAME-"" 


export USERNAME BASH ENV PATH 


Ori de câte ori este lansat un proces shell interactiv, va fi lansat mai întâi fișierul 
script /etc/bashrce, apoi $HOME/ . bashrc. De altfel, în orice sistem UNIX (Linux), 
prin convenţie, orice nume de fişier terminat în rc (de la run commands) desem- 
nează un fişier script de configurare. Spre exemplu, scripturile de configurare a 
serviciilor sistem rulate la initializarea sistemului de operare se găsesc în directorul 
/etc/rc.d/init.d. Pentru serverul Web Apache, un asemenea script este httpd 
prezentat în secțiunea 3.6. 


Într-un fişier .bashrc se pot defini alias-uri şi se pot stabili diverse valori ale 
unor variabile de sistem: 


$ .bashrc 


alias h='history' 
alias j-"jobs -1" 
alias 1="1s -1" 
alias f=finger 


4 modificam tipul de terminal 
TERM-vt100 
# schimbam prompt-ul 
$ Ah - numele masinii 
4 Nu - numele utilizatorului 
3 Nw - directorul de lucru (curent) 
PsSiz"h (Nu): Ww" 
export TERM PS1 

Pentru fiecare utilizator mai există un fişier, denumit .bash, history, Care este 
stocat în directorul home şi păstrează ultimele comenzi executate de utilizator. 
Numele acestui fişier se poate modifica prin intermediul variabilei de mediu 
HISTNAME. Ultimele comenzi executate pot fi vizualizate cu ajutorul comenzii 
history (variabila de mediu HISTSIZE stabileşte numărul maxim de comenzi 
memorate). 


3.6. Exemple 


În cadrul acestei secţiuni vom prezenta o serie de exemple complete de scripturi 
bash care să ilustreze atât cele descrise mai sus, cât şi unele aspecte mai avansate 
pe care le pune la dispoziție shell-ul. 


1. Versiunea 2.0 a shell-ului bash dă programatorului posibilitatea să utilizeze 
variabile de tip tablou, după cum se poate remarca din exemplul de mai 
jos, în care afişăm aleatoriu o culoare la fiecare rulare a programului: 


8 declaram o variabila contor 
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for culoare in rosu oranj galben verde albastru violet 
do 

culori (i]="Sculoare"; 

izi-tl; 
done 


echo $(culori[RANDOM $ 6]) 


Instrucţiunea declare este o construcție internă a shell-ului şi permite 
declararea de variabile, eventual setând şi o serie de proprietăţi. Astfel, opțiunea -i 
semnifică faptul că variabila va fi considerată de tip întreg. Opţiunea -x poate fi 
folosită pentru a exporta o variabilă, iar -r va stabili ca o variabilă să fie 
considerată read only. Pentru alte detalii, consultaţi help declare. 


2. În bash putem defini şi funcţii (recursive sau nu). Forma generalá a 
declaraţiei unei funcţii este: 
nume |) ( lista, comenzi; ) 


Pentru a evita ambiguitájle si pentru a creşte gradul de lizibilitate a 
programului, putem preceda numele functiei de cuvántul-cheie function. 


Exemplul de mai jos, implementánd o funcţie care calculeazá factorialul unui 
număr, este edificator: 


fact () 
( 


local nums$1; # o variabila locala 


if [ "$num" = 1 ] ; then 
echo 1 # afisam factorial de 1 
return; 

fi; 


+ afisam prin apelarea recursiva a functiei 
echo $( $num * $(fact ȘI $num - 1 ])] 
) 


Putem apela această funcție prin fact 5. 


După cum se poate remarca, variabilele $1, $2,..., $8 vor conţine parametrii de 
intrare cu care a fost apelată funcția respectivă. 


Un alt exemplu este următorul, care implementează problema turnurilor din 
Hanoi (ne folosim de facilitatea bash de a evalua expresii matematice delimitate de 
paranteze rotunde şi de execuţia condiţionată a comenzilor): 


4 Turnurile din Hanoi in bash 


hanoi() 

4 are 4 argumente: numarul de discuri, 

4 turnul sursa, turnul destinatie, turnul liber 
{ 
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((nm1l>0)) && hanoi $nml $2 $4 $3 
echo "Mutam discul de pe $2 pe $3" 
((nm1l»0)) && hanoi $nmi $4 $3 $2 

) 


# verificam daca exista utilizatorul 
+ a dat numarul de discuri 
case $1 in 
[1-9]) hanoi $1 12 3 ;; 
*) echo "Sintaxa: $0 <discuri>* 
exit 1 ;; 
esac 


3. In continuare, prezentám un exemplu de script sistem folosit pentru 
controlul serverului de Web (localizat in /etc/rc.d/init.d). 


+ Fisier de start al serviciului de Web (Apache) 


* Utilizam functii definite in acest fisier 
/etc/rc.d/init.d/functions 


+ Calea spre serverul propriu-zis 
httpdz/usr/sbin/httpd 
RETVAL=0 
+ pregatim modulele care vor fi incarcate 
moduleargs() ( 

moduledir-z/usr/lib/apache 

moduleargs- 

for module in $(moduledir)/*.so ; do 

if [ -x Simodule) ] ; then 
module-' echo $(module) | awk 'í* 


gsub(".*/",""):N 
gsub("^mod ","");W 
gsub("^lib","*");W 
gsub("V.so$", "");N 


print toupper($0))'^ 
pee bi ada Sus] -D HAVE $module" 
i : 
done 
echo $(moduleargs) 
) 
# proceduri pentru realizarea actiunilor dorite 
startí() | 
echo -n "Starting httpd: " 
daemon $(httpd) "moduleargs' 
RETVALz$? 
echo 
[ SRETVAL = 0 ] && 
touch /var/lock/subsys/httpd 
return S$RETVAL 
H 
stop) ( 
echo -n "Shutting down http: " 
killproc httpd 
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RETVAL-$? 
echo 
[ SRETVAL - 0 ] && 
rm -f /var/lock/subsys/httpd /var/run/httpd.pid 
) 
4 detectam parametrii dati in linia de comanda 
case "S1" in 
start) start jy 
stop) stop ;:: 
status) status S(httpd]) ;; 
restart) stop 
start ;; 
reload) 
echo -n "Reloading httpd: " 
killproc $(httpd) -HUP 
RETVALz$? 
echo ;; 
4 altfel, se afiseaza sintaxa de apelare 
*) 
echo "Usage: $0 (start|stop|restart|reload|status)" 
exit 1 
esac 
exit SRETVAL 


4. În cele ce urmează ne propunem să concepem un script bash care să 
compileze sursele unei aplicații, în particular serverul de teleconferințe 
GAEN (pentu mai multe amănunte, vezi adresa  http:// 
www.infoiasi.ro/-busaco/gaen/), programul testând în prealabil 
existența compilatorului C, a unor biblioteci necesare si afisánd paginat 
posibilele erori de compilare. 


Codul-sursă al acestui script bash (denumit easy.compile.sh) este dat în 


continuare: 


#!/bin/bash 


# Scop: Scriptul realizeaza compilarea facil a surselor GAEN; 


# utilizatorul nu mai trebuie sa caute parametrii necesari 

# pentru compilarea codului folosind compilatorul GCC 

# Sintaxa: easy.compile [SourceFile.c] [ -o ] [ OutputFile ] 

$ Daca parametrul "-o" nu e prezent, atunci argumentele vor fi 
procesate 

+ in ordinea: SourceFile OutputFile. Daca este prezent, 

+ atunci "OutputFile" va fi considerat urmatorul argument 

+ care urmeaza lui "-o". 

# Exemple de apelare: 

# $ easy.compile 

# $ easy.compile -o gaend 

# $ easy.compile MyOwnSourceFile.c 

# $ easy.compile --help 


version="1,3 final (internal version 1.12), 24 January 2002" 


echo: 
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echo ">>>GAEN Easy Compile Script«««" 
echo; 
echo ">>>Version "S(Version)"."; 


# verificam daca apare parametrul "--help" 
if [ $$ -eq 1 ]; then 
if | "$1" = *--help" ]; then 
# afisam sintaxa de apelare a scriptului 
echo "Sintaxa: easy.compile fSourceFile.c] [-o] 
[OutputFilel* 
+ am terminat 
exit 2; 
fi 
fi 
+ initializam variabilele... 
LIBSz""; 
FLAGS-""; 
DEFAULT SOURCE FILE-"src/gaen.c"; 
DEFAULT OUTPUT FILE-"gaend"; 
SOURCE FILE-""; 
DEFAULT BASE FILE-"gaen.c"; 
OUTPUT FILE-""; 
* ...si diverse constante si variabile interne 
UNIQUE-"SRANDOM"; 
GAENCompillingScriptz"/tmp/"$UNIQUE"GAENCompillingScript"; 
LockFile-"/tmp/"$UNIQUE"GAENLockFile"; 
ErrFilez"/tmp/"$UNIQUE"GAENErrFile"; 
UserName-' whoami'; 


# functie apelata la aparitia semnalului de terminare 
make clean() 
{ 
# eliminam "gcc" 
kill -15 $(ps auxw | egrep "SUserName.*(ccl|S$BASE FILE)" X 
| egrep -v "$0]lgrep" | awk '(print $2)') &»/dev/null; 


# stergem toate fisierele temporare create 
rm -f *$GAENCompillingScript" "$LockFile" "SErrFile" X 
/tmp/gcctest.c /tmp/crypt.c /tmp/socket.c WX 
/tmp/nsl.c /tmp/opt.c /tmp/a.out 2»2/dev/null 1»/dev/null; 
# am terminat 
exit; 


pentru semnalele de terminare 
SIGHUP, SIGINT, SIGQUIT, SIGTERM 
* atasam functia de tratare a lor 
trap make clean 0 12 3 15; 
# procesam argumentele date in linia de comanda 
FoundOptFlag-0; 
for Param in $80; do 
if [ "$Param" - "-o" ]; then 
FoundOptFlag-1; 
else 
if [ "$FoundOptFlag" = "1" ]; then 
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OUTPUT FILE-"SParam"; 
FoundOptFlagz0; 
else 
if [ "SSOURCE FILE" = "" ]; then 
SOURCE, FILE-"$Param"; 
else 
OUTPUT FILE-"$Param"; 
Ilf 
fi; 
fi: 
done; 
4 daca parametrii n-au fost furnizati, setam valorile implicite 
if [ "SSOURCE FILE" = "" ]; then 
SOURCE FILE-"SDEFAULT SOURCE FILE"; 
BASE FILE-"SDEFAULT BASE FILE"; 
else 
BASE FILE-$(basename "$SOURCE FILE"); 
fi; 
* determinam calea relativa a fisierului sursa 
# util în functia make _ clean) 
if [ "SOUTPUT FILE" = "" ]; then 
OUTPUT FILE-"SDEFAULT OUTPUT FILE"; 
fi; 
* nu exista fisierul care trebuie compilat 
if [ ! -f "$SOURCE, FILE" ]; then 
echo "Cannot open source file: VX"$SOURCE FILE"V"." >&2 
exit 1; 
fi: 
4 verificam daca exista compilatorul... 
echo -n "Checking if gcc compiler exists and works... “; 
echo "main()()" > /tmp/gcctest.c; 


GCCs"*; 
GCC, ENUM-$ (whereis gcc | cut -d " " -f 2-; 4 
whereis cc | cut -d * " -f 2-); 
for i in $GCC ENUM; do 
if [ "$(echo $i | grep obsolete)" i= "" -o WX 
"$(echo $i | grep old)" i= "" ]; then 
continue; 
fi: 
ERRs$($i /tmp/gcctest.c -o/tmp/a.out 2»&1 1»/dev/null); 
if [ "SERR" = "" ]; then 
GCC=" $i"; 
echo "done." 
break; 
fi; 
done; 
if [ "$GCC" = *" 3; then 


echo "failed."; 
echo "Fatal error: gcc doesn't work!"; 


exit 1; 
fi; 


# verificam daca exista suport pentru functia orypt() 
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echo -n "Searching for crypt function in crypt library... "; 
* cream un fisier de test in care apelam functia crypt() 
cat > /tmp/crypt.c ««EOF 
tincluae <unistd.h> 
main (void) /* test file created by GAEN easy compile script */ 
( 
crypt (NULL, NULL); return 0; 
) 
EOF 
+ daca esueaza compilarea, inseamna ca nu exista suport 


` ERRs$($GCC /tmp/crypt.c -lcrypt -o/tmp/a.out V 


2»&1 1»/dev/null | grep "crypt"); 
if | "SERR" = "" ]; then 
LIBSz"-lcrypt"; 
echo "found." 
else 
echo "not found."; 
£d 


# unele apeluri de retea sunt stocate intr-o biblioteca 
'libsocket' 
+ la anumite versiuni de sisteme (e.g. Solaris) 
echo -n "Searching for BSD socket functions in socket library... 
cat » /tmp/socket.c ««EOF 
$include «sys/socket.h» 
main (void) /* test file created by GAEN easy compile script */ 
( 
return socket (AF INET, SOCK STREAM, 0); 
) 
EOF 
+ verificam daca s-a compilat cum trebuie 
ERR=$ (ȘGCC /tmp/socket.c -lsocket -o/tmp/a.out WX 
2>&1 1»/dev/null | grep "socket"); 
if [ "SERR" - "" ]; then 
LIBSz"-lsocket "S$(LIBS)""; 
echo "found." 


else 
echo "not found."; 
fi: 
# ...si in biblioteca 'libnsl'. 


echo -n "Searching for other socket functions in nsl library... 
cat » /tmp/nsl.c ««EOF 
include <stdio.h> 
tinclude <unistd.h> 
include <sys/socket.h> 
main (void) /* test file created by GAEN easy compile script */ 
( 
return socket (AF INET, SOCEK, STREAM, 0); 


EOF 
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if [ "S$ERR" = "" ]; then 
LIBS-"-1lnsl "S(LIBS)""; 
echo "found." 

else 
echo "not found."; 

fi; 


4 verificam daca GCC poate genera cod optimizat 

echo -n "Checking if gcc can generate optimized code... "; 
cat »/tmp/opt.c ««EOF 

include <stdio.h> 

include «unistd.h» 

$include «sys/socket.h» 
main (void) /* test file created by GAEN easy compile script */ 


( 
(void) fprintf(stderr, 
"We really have to write something here?:) Mn"); 
socket (AF INET, SOCK, STREAM, 0); 
crypt (NULL, NULL); 
return 0; 
) 
EOF 
ERRs$($GCC /tmp/opt.c $LIBS -O -o/tmp/a.out 2>&1); 
if [ "$ERR" = "" 3; then 
FLAGS-"-O"; echo "ok." 
CAN, OPTIMIZE-z"1"; 
else 
echo "cannot." 
ti 
4 folosim optiunea "-02" pentru optimizarea codului 
if [ "SCAN OPTIMIZE" = "1" ]; then 


s 


echo -n "Forcing gcc to a higher optimization level... "; 
ERR=S ($GCC /tmp/opt.c $LIBS -02 -o/tmp/a.out ^ 
2>&1 1»/dev/null | grep "O"); 
if [ "S(ERR)" = "" ]; then 
FLAGS-""$(FLAGS])"2"; 
echo "success." 
else 
echo "cannot." 
fi; 
fi; : 
4 pregatim un fisier lacat pentru a vedea daca scriptul mai 
ruleaza 
rm -f "$LockFile" 2»/dev/null 1»/dev/null; 
+ rulam intr-un sub-shell scriptul de compilare a surselor 
cat »"S$GAENCompillingScript" ««EOF 
#!/bin/sh 
$GCC $SOURCE_FILE -o SOUTPUT FILE SFLAGS $LIBS $NO SUPPORT 
2>>$ErrFile\\ 
&& strip --strip-all $OUTPUT_FILE dis 
touch $LockFile 2»»$ErrFile 
EOF 
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echo -n "Compiling GAEN server X'"SOUTPUT FILE"X" N 
from file WV""$SOURCE, FILE"N"..."; 


i rulam scriptul de compilare in fundal 
$GAENCompillingScript & 
+ afisam niste efecte vizuale utilizind fisierul lacat 
4 pentru a indica utilizatorului ca se compileaza sursele 
Timez"-1"; 
dashz""; 
printf "$s"; 
while [ ! -f "$LockFile" ]; do 
Times$[$Time + 1]; 
dash-z$[$Time $ 4]; 
case "Sdash" in 
"Q") printf "$sWMb" "-";  ;; 
"1") printf "%s\b" "NM"; ;; 
"2") printf "$s Mb" "|"; 3; 
"3") printf "gsp" "/";  ;; 
esac; 
sleep 1; 
done; 
4 afisam erorile de compilare (daca exista) 
if [ -s "$ErrFile" ]; then 
echo -e "failed."; 
echo "Done in "$Time" seconds with the following error(s):"; 
less "S$(ErrFile]" 1>&2; 
else 
echo -e "done."; 
echo "Done in "$Time" seconds with no error."; 
iii 
+ am terminat 
Ín acest exemplu s-a folosit comanda trap pentru a stabili o succesiune de 
comenzi care va fi executată la apariția unui anumit semnal trimis procesului 
curent. Semnalele se dau prin numerele lor şi nu prin constante simbolice (pentru a 
vedea numerele asociate semnalelor, dati kii -1). Anumite mesaje transmise de 


diverse comenzi au fost redirectionate spre fişierul special /dev/nul1 pentru a nu 
mai fi afişate pe ecran. 


Pentru a genera cod C în vederea verificării existenţei unor biblioteci de funcții, 
s-a utilizat facilitatea here script, care permite inserarea de text (spre a fi afişat sau 
redirecționat) direct în interiorul scriptului (fără ca procesorul de comenzi să-l 
interpreteze, ca instrucțiuni sau comenzi obișnuite). Forma generală a acestei 
facilităţi (care apare şi la Perl) este: 

comanda <<DELIMITATOR 


text 
DELIMITATOR 


Construcţia DELIMITATOR este un cuvânt care nu trebuie să apară în componența 
textului text. 
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4. Scripturi CGI în bash 


4.1. Primele scripturi CGI 


Înainte de a prezenta exemple de scripturi relativ mai complexe, vom scrie 
primul nostru program care va trimite cod HTML navigatorului. Vom denumi acest 
script bash salut. cgi (am utilizat extensia .cgi pentru a indica serverului Web că 
este vorba de un script CGI). 


41 /bin/bash 


# trimitem mai intii campul Content-type 
echo "Content-type: text/html" 

4 obligatoriu:.o linie vida dupa campul HTTP 
echo 


4 putem continua cu marcaje HTML 
echo '«html»«head»' 

echo '«title»Salutari«/title»' 
echo '«/head»' 


'echo '«body bgcolor-"navy" text="white">! 


echo '«h3 align="center">Salut din bash«/h3»' 
echo '«/body»«/html-»' 
# am terminat 
exit 
Orice script va avea acces la variabilele de mediu puse la dispozitie de serverul 
Web. Pentru a le afişa, vom folosi set sau printenv: 
4! /bin/bash 
4 trimitem mai intii campul Content-type 
+ aici text obisnuit 


echo "Content-type: text/plain" 
echo 


+ executam 'set' 
set 
Desigur, putem procesa doar variabilele de mediu care ne interesează: 


4! /bin/bash 
echo "Content-type: text/html" 
echo 


echo "«h3»Variabile«/h3»" 


it [ t 2 $REMOTE HOST ] 
then 

echo "«p»Calculator client: SREMOTE_HOST</p>" 
eise 


echo "«p»Calculator client: «i»adresa necunoscuta«/i»«/p»" 
fi 
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if [ |! -z SREQUEST. METHOD ] 
then i 
echo "«p»Metoda utilizata: RE 4 i 
a $REQUEST METHOD«/p» 
Poss "*p»Metoda utilizata:  «i»necunoscuta«x/i-«/p»" 
à 


echo "«p»Navigator folosit: $HTTP. USER, AGENT« /p» " 
4.2. Generarea de conţinut dinamic 


is ns funcţie de d procesării, prin intermediul unui script bash putem 
e spre navigatorul clientului diverse informaţii ând î i 

a B i i 

SIE Deb til, generând in mod dinamic 


A LUE vom scrie un program care va afişa un citat celebru extras 
oriu dintr-un fişier text de citate. Fiecare linie a fişierului va conţine un citat 
convenind ca oricare citat să nu ocupe mai mult de o linie 


Scriptul CGI este următorul: 


*!/bin/bash 

+ fisierul cu citate 
CITATE-"Citate.txt" 

$ numarul maxim de citate 
NRCITATE=1 00 


# trimitem antetul HTTP 
echo "Content-type: text/html" 


echo Hon 
# verificam daca fisierul poate fi citit 
if [ | -r SCITATE ] 
then 
echo "Citat inaccesibil." 
exit 
fi 


# alegem un numar aleatoriu 
nrcitats$((RANDOMSNRCITATE)) 

nrcitat=$ |($nrcitat+1)) 

# preluam citatul din fisier 

citat-$( head -$nrcitat $CITATE | tail -1 ) 
+ il putem afisa 

echo $citat 


Acest script va putea fi invocat prin intermediul directivei SSI exec: 


<h5 align="right"> 
«!--$exec cgis"citat.cgi" --» 
</h5> 


- Plecând de la acest model, cititorul interesat va putea uşor concepe un script care 
genereze codul HTML pentru incárcarea unei imagini alese in mod aleatoriu 
dintr-o mulțime de fişiere grafice. i 
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De asemenea, putem scrie un script care, în funcție de sistemul de operare, va 
redirectiona navigatorul spre un anumit document. Fragmentul de cod poate fi 
(recomandăm cititorului să găsească o modalitate mai elegantă de a realiza acest 


lucru): 


navigator=$HTTP_USER_AGENT 
+ vedem ce sistem de operare utilizeaza 
if 

echo $navigator | grep "Linux" »/dev/null 
then 

echo "Location: linux.html" 

echo 

exit 
fi 
itf 

echo $navigator | grep "SunOS" »/dev/null 
then 

echo "Location: sunos.html" 

echo 

exit 
fi 
if 

echo Snavigator | grep "Mac" »/dev/null 
then A 

echo "Location: mac.html" 

echo 

exit 
fi 
if 

echo $navigator | grep "Win" »/dev/nuli 
then 

echo "Location: windows.html" 

echo 

exit 
fi 
echo "Location: generic.html" 
echo 


4.3. Interactiunea cu utilizatorul 


Am dori de multe ori ca, în funcţie de datele introduse de utilizator (via un 
formular Web), să realizăm diferite acțiuni pe server, iar rezultatele să le 
transmitem clientului. 


Preluarea datelor prin metoda GET 


Cea mai simplă cale este de a insera după URI-ul de invocare a scriptului CGI 
un şir de interogare precedat de caracterul „?” (simulánd astfel trimiterea datelor 
dintr-un formular prin metoda GET). 
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Pentru a afla informatiile despre un utilizator avánd cont pe o anumită maşină la 
care nu avem acces decât pe Web, putem invoca un script CGI care să execute 
comanda finger şi să returneze rezultatul dorit sub formă de document HTML 
Desigur, acel script va trebui instalat pe serverul respectiv. l 


o al acestui program este următorul (vom afişa doar numele real al 
utilizatorului şi data la care şi-a citit ultima oară poşta electronică}: 


$!/bin/bash 
echo "Content-type: text/html" 


echo 
if [ "SREQUEST METHOD" z "GET" ] 
then 
utilizatorz$QUERY STRING 
eise 
echo "<p>Metoda de invocare eronata«/p»" 
exit 
fi 
if [ "$utilizator" = nn ] 
then 
echo "<p>Nu a fo ifi 
» st specificat numele de cont«/p»" 
fi 


nume-$( finger Șutilizator | grep "Login") 
data=$( finger $utilizator | grep "Mail last read") 


PS a ia despre «tt»$utilizator«/tt»«/p»" 
echo $nume 

echo $data 

echo "«/pre»" 


p A T : ; 
i E aaa că acest script l-am denumit finger.cgi şi l-am stocat în 
rectorul html al utilizatorului busaco pe serverul www. infoiasi.ro, îl vom putea 

ea * 


invoca prin intermediul următorului URI (i i 
i H ed in acest caz particular, vo 
informatii despre utilizatorul stanasa). j DES 


http: //www.infoiasi.ro/-busaco/finger.cgi?stanasa 


ue pi dorim să prelucrăm datele preluate dintr-un formular XHTML 
$ consi era, din nou, problema determinării maximului dintre două numere 
probiemă pe care o vom relua în capitolul dedicat limbajului Perl. 


Formularul Web este: 


<form actions"max.cgi" 
method="GET"> 
<p> Introduceţi două numere: </p> 
«input type="text" name="nrl" sizez"3" /» 
«input type="text" name="nr2" si 
zi Ssizez"3" 
pus zez"3" /> 
<input type="submit" value=" á i 
lue-"Aflé ua 
Ex á maximul" /» 
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Datele transmifándu-se prin metoda GET, variabila QUERY STRING va avea 
întotdeauna forma nr1=valoarel&nr2=valoare2, unde valoare şi valoare2 VOT 
fi valorile celor două numere (presupunem că utilizatorul va introduce numai valori 
corecte). Astfel, cu ajutorul comenzii cut putem divide şirul de caractere conţinut 
de QUERY_STRING în perechi (nume de câmp, valoare). Mai întâi vom extrage 
fragmentul de şir care precedă „&”, din care vom prelua caracterele de după „=”. 
Pentru aceasta vom folosi cut, stabilind drept delimitatori de câmpuri caracterele 
„&” şi „=”. Similar, vom proceda pentru al doilea număr. 


Codul complet al scriptului este următorul: 


+! /bin/bash 
3 Prelucrarea datelor prin metoda GET 


echo "Content-type: text/html" 


echo 

4 preluam primul numar 

nrl=" echo $QUERY_STRING | cut -d'&" -f1 | cut -d"=" -f2" 
4 preluam al doilea numar 

nr2=" echo $QUERY_STRING | cut -d'&" -f2 | cut -d's" -f2" 


# calculam maximul 
if [ $nr1 -lt $nr2 ] 
then 
max-$nr2 
else 
max-$nri 
fi 
+ afisam maximul 
echo "<p>Maximul dintre $nrl si $nr2 este: $max</p>" 
Cititorul interesat poate aplica acest procedeu pentru un număr variabil de 
câmpuri. Cu ajutorul comenzilor sea sau tr se pot, de asemenea, decodifica 


valorile câmpurilor transmise către serverul Web. 


Preluarea datelor prin metoda POST 


În cazul metodei POST, datele vor fi disponibile de la intrarea standard, astfel 
încât putem folosi reaa pentru a stoca valoarea şirului de interogare într-o 
variabilă. După cum ştim din capitolul precedent, vor trebui citite maxim 
CONTENT LENGTH caractere. Acest lucru va fi posibil grație opțiunii -n a comenzii 


read, care asigură citirea atâtor caractere cât este nevoie. 


Rescriind scriptul de mai sus, vom avea: 


4! /bin/bash 

+ Prelucrarea datelor prin metodă POST 
echo "Content-type: text/html" 

echo 
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read interogare -n $CONTENT,. LENGTH 
+ preluam primul numar 


nri= "echo $interogare | cut -d'&" -f1 | cut -d*=" -f2^ 
* preluam al doilea numar 
nr2="echo $interogare | cut -d'&" -f2 | cut -d'-" -£2^ 


# calculam maximul 
if [ $nrl -lt $nr2 ] 
then 


* afisam maximul 
echo "«p»Maximul dintre $nrl si $nr2 este: $max«/p»" 


4.4. Utilizarea bibliotecii bashl1ib 


Pentru procesarea datelor primite de la clienții Web, putem folosi biblioteca 
bashlib concepută de Darren Chamberlain şi disponibilă gratuit la 
http: //sevenroot.org/software/bashlib/. Această bibliotecă este stocată si pe 
CD-ul care însoţeşte cartea de față. Varianta curentă este 0.2. De asemenea, această 
colecție de rutine bash este accesibilă şi pe situl Web dedicat acestei cărți: 
http://www.infoiasi.ro/-cgi/. Pachetul corespunzător bibliotecii este 
bashiib-0.2.tar.gz, iar dezarhivarea si instalarea se realizează astfel: 


(infoiasi)$ gunzip -c bashlib-0.2.tar.gz | tar xf - 
(infoiasi)$ cd bashlib-0.2 

(infoiasi)$ sh install.sh 

(infoiasi)$ cp bashlib director-cgi/bashlib 


Vom utiliza această bibliotecă prin execuţia acesteia la începutul fiecărui script 
CGI scris în bash, în modul următor: 
+! /bin/bash 

director-cgi/bashlib 
* alte comenzi 

Parametrii trimişi via HTTP se pot obține prin apelul rutinei param (indiferent de 
metoda HTTP utilizată): 


nume=` param nume! 
Valoarea parametrului nume se va regăsi în variabila cu acelaşi nume. 
Biblioteca permite si obținerea informaţiilor aflate în cookie-uri: 
limbas' cookie limba” 


In variabila 1imba se va găsi valoarea cookie-ului cu acelaşi nume primit de la 
un calculator-client. Pentru a seta însă cookie-uri va trebui să trimitem câmpul 
Set-Cookie într-un antet HTTP: 
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4! /bin/bash 


echo "Set-Cookie: limba-romana; path=/; expires-Mon, 19-Aug-2002 
15:33:00 GMT" 


Exemple 


Pentru a vedea cum se lucreazá efectiv cu aceastá bibliotecá, vom considera o 
paginá Web care permite inscrierea la grupuri de stiri. Codul XHTML peni 
formularul de înscriere este următorul (generat automat de aplicația GenForm): 


<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" 
"DTD/xhtmll-strict.dtd"» 

«html» is 

«head»«title»Ínscriere la gtiri«/title» i i 

«meta content-"Stefan Ciprian Tanasa" name= author" /> 

«meta contents"GenForm 1.0" name-"generator" /> 


«/head» 


«body bgcolor=" #FFFAF0"> NI 
<h2 aligne"center"»Ínscriere la ştiri</h2> 


" " d =" HEAR tiri.cgi"» 
«form method="post" actions"../cgi-bin/s i dt " i 
<table align="center" border="0" cellpadâing= "5" width-"60$'» 
«tr» «td»Nume:«/td» 
«td» "T 
«input name-"nume" type="text" size- 30" /» 
«/td» 
</tr> 
<tr> «td»Prenume:«/td» 
WESS ` | " 
«input name="pren" type="text" sizez"30" /» 
«/td» 
«/tr» 
«tr» «td»E-mail:«/td» 
dns $ " " 
«input name-z"email" type="text" size= 30" /» 
«/td» 
«/tr» 
S i Li 
«td style-"padding-left: icm;"» . A 
«input name-"info" type-"checkbox" checked-"checked" /» 
Informatica «/td» 
«td styles"padding-left: lcm;"» f . 
Ere names'stiri" type="checkbox" checked= checked" /> 
Ştiri </td> 
</tr> 
<tr> à . 
«td styles"padding-left: lcm;"» . A 
«input name-"mate" type="checkbox" checked-"checked" /» 
Matematica «/td» 
«td style-"padding-left: lcm; "> 


input namesz"dlume" tvpe-"checkbox" checked="checked” '» 
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Glume «/td» 

</tr> 
<tr> 

«td align="center” colspanz"2"» 

«input type="submit" value-"Ínscriere" /» 

«/td»«/tr» 
«/table»«/form» 
«/body»«/html» 


Programul stiri.cgi de prelucrare a formularului este dat în continuare: 


$!/bin/bash 
* Includerea bibliotecii bashlib 
bashlib 
echo -e "Content-type: text/html Win" ` 
echo *«hl align=\"center\">Inscriere la stiri</h1>" 


+ Preluarea valorilor campurilor din formular 
nume=` param nume! 

pren=` param pren' 

emāil=`param email? 

info=`param info` 

mate=`param mate` 

stiri=` param stiri` 

glume=`param glume` 


temp= 
+ Afisarea datelor introduse de utilizator 
echo "«p»Optiunile dumneavoastră: 
echo "«ul»" 
echo "«li»Nume: «b»$nume«/b»«/li»" 
echo "«li»Prenume: «b»$pren«/b»«/1li»" 
echo "«li»E-mail: «b»$email«/b»«/li»" 
if [ Sinfo ] 
then 
temp=" : Informatica” 
echo "«li»Preferintá: «b»Informatica«/b»«/li»" 


if [ $mate ] 


temp= echo $temp:Matematica" 

echo "«li»Preferintá: <b>Matematica</b></li>" 
fi 
if | Şstiri ] 


temp= "echo $temp:Stiri` 
pe "<li>Preferinţă: «b»Stiri«c«/b»«/li»" 
i 
if [ $glume ] 
then 
temp=" echo $temp:Glume^ 
"ln "XSli»Preferintá: «b»Glumec/b»«/li»" 
LE 


echo "</ul>" 
echo 1</p>" 
echo "«h2 align-MV"centerV"»Và multumim!«/h2»" 


+ Salvarea datelor in fisierul stiri.bd 


echo $nume: $pren: $email$temp »»stiri.bd 

Pentru a trimite mesaje pentru anumite grupuri de ştiri, se va utiliza scriptul de 
mai jos (denumit trimite): 
4! /bin/bash 


if [ -z $1 ] 4 daca nu a primit argument 
then 
echo "Sintaxa: $0 fisier [ grup ]" 
exit 1 
fi 
Xf [ro $1 ] 3 daca fisierul exista si poate fi citit 
then 
echo "Fisierul $1 este in regula!" 
else 
echo "Fisierul $1 nu exista sau nu poate fi cititi” 
exit 2 
fi 
nr=0 i numaram cate mesaje am trimis 


4 fiecare linie din stiri.bd 
4 corespunde unui utilizator inscris 
for v in "cat stiri.bd' 


do 
if [$2 J 
then 
v2s'echo $v | grep $2" 
fi 


vs'echo $v | cut -£3 -d:^ 
$ testam daca apartine grupului solicitat 
if [ $v ] 
then 
# numaram mesajele trimise 


nr=$(($nr+1)) 
# trimitem mesajul folosind 'mail' 
mail $v -s News « $1 
fi 
done 
echo "Au fost expediate $nr mesaje!” 
exit 0 
De exemplu, dacă se intenţionează a se trimite un mesaj (conţinut de fişierul 
mesaj . txt) către toti utilizatorii înscrişi, se va putea scrie: 
(infoiasi)$ ./trimite mesaj.txt 
Expedierea mesajului pentru un anumit grup de stiri (de exemplu Informatica) 
se poate realiza în maniera următoare: 


(infoiasi)S$ ./trimite nesaj.txt informatica 
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Un alt exemplu interesant ar fi înscrierea la o conferință, un posibil participant 
trebuind să introducă, prin intermediul unui formular, datele personale, titlul şi 
rezumatul lucrării pe care doreşte să o susțină. 


Codul XHTML al formularului Web este: 


<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" 
"DTD/xhtmli-strict.dátd"» 
«html» 
<head><title>înscriere la conferintá«/title» 
*meta content-"Stefan Ciprian Tanasa" name="author" /» 
«meta content-"GenForm 1.0" name-"generator" /» 
</head> 
<body bgcolor="antiquewhite"> 
<h2 align="center">Înscriere la conferintá«/h2» 
«form method="post" actions"../cgi-bin/conferinta.cgi'» 
<table align="center" border-"'0* width-"70£"» 
«tr» «td» Nume: </td> 
«td» 
«input namez"nume" type-"text" size-"30" /» 
</td> 
</tr> 
<tr> <td> Prenume: </td> 
<td> 
<input name="pren" type="text" size="30" /> 
</td> 
</tr> 
<tr> <td> E-mail: </td> 
<td> 
«input name-"email" type="text" sizez"30" /> 
</td> 
</tr> 
<tr> <td> Telefon: </td> 
<td> à 
«input names"tel" type="text" size="30" /> 
</td> 
</tr> 
<tr> <td> Titlul lucrării: </td> 
<td> 
<input name="titlu" type="text" size="40" /> 
</td> 
</tr> 
«tr» 
<td valign="top"> Rezumatul lucrării pe scurt: </td> 
<td> 
«textarea name="rez" rows="12" cols="40"></textarea> 
«/td» 
</tr> 
<tr> 
«td align="center" colspan="2"> 
<input type="submit" values"'Trimite" /> 
</td> 
</tr> 
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</table></form> 
«/body»«/html» 


X 


Înscriere la conferință 


Nume: [Dumitriu 
Prenume: [Daniel 
E-mail: [daniel@infoiasi.ro 


Telefon: [+40 32 201090 | 
Tital [Generator de situri Web 


lucrári: 


Rezumatul |Lucrarea prezinta un generator de " 
lucrâri pe |situri Web conceput in PHP, utilizan 


scurt: procesare XML. 


Fig. 3.2 - Formularul de înscriere la conferinţă 


Programul de prelucrare a datelor (denumit conferinta.cgi) este descris mai 


jos: 
+! /bin/bash 
bashlib 
1 : -type: text/html'*n" 
o -e "Content-typ / à ! TURN 
EE "<hl aligneV'centerV"»Ínscriere ia ştiris/hi> 
ech i 


nume=` param nume' 
pren=` param pren` f 
email=` param email 
tel=` param tel! 
titlu=` param titlu” 
rez= param rez! 
tenie 
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echo "«p»Optiunile dumneavoastrá:" 
echo "«ul»" 

echo *«li»Nume: «b»$nume«/b»«/li»* 
echo "«li»Prenume: «b»" 

# inlocuieste toate aparitiile lui "+" cu spatiu 
echo $pren | sed s/+/" "/g 

echo "«/b»«/li»" 

echo "«li»E-mail: «b»$email«/b»«/li»" 
echo "«li»Telefon: «b»$tel«/b»«/li»" 
echo "«li»Titlul lucrárii: «b»" 

echo $titlu | sed s/+/" "/g 

echo "«/b»«/li»" 

echo "«li»Rezumat: «pre»" 

echo $rez | sed s/+/" "/g 

echo "«/pre»«/li»" 

echo "«/ul»" 

echo "«/p»" 


echo "c«h2 align-V"centerV"»Và multumim!«/h2»" 
echo $nume:$pren:$email:$tel:$rez:"84" »»conferinta.bd 


^ 


Informaţiile obținute de la participanți sunt memorate în  figierul 
conferinta.bd. S-a utilizat comanda sea pentru a substitui orice apariţie a 
caracterului „+” cu caracterul spaţiu, decodificând parţial şirul de interogare primit 
de la navigatorul Web. 


Pentru a vizualiza lista tuturor participanților înscrişi, vom defini următorul CGI, 
care va genera un document XHTML cu aceste date: 


$!/bin/bash 


echo "Content-type: text/html" 

echo 

cat ««HTML 

«hl align="center"> 

Lista participanţilor inscrisgic/hi» 
<table border="0" align="center"> 
«tr bgcolor="lightblue"> 
<th>Nume</th> 

<th>Prenume< /th> 

<th>E-mail</th> 
<th>Telefon</th></tr> 

«tr bgcolor="lightblue"> 

<th colspan="4">Rezumatul lucrării</th></tr> 
HTML 


+ parcurgem fisierul 
color="white" 
for v in "cat conferinta.bd^ 
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do 


echo "<tr bgcolor=\"$color\">" 
count=0 
while [ count -lt 4 ]; do 
count=$(($count+1)) 
echo "«td»" 


echo $v | cut -£$count -d: | sed s/*/" "/g 
echo "«/td»" 
done 


echo "«/tr»" 

v="echo $v | cut -f5 -d: 
echo "<tr bgcolor=\"$color\">" 

echo "<td colspan=\"4\"> $v" | sed s/+/" "/g 
echo "</td></tr>" 

# alternam culoarea de fundal 


` 


if [ $color == white ]; then 
colorz"antiquewhite" 
else 
colors"'white" 
fi 
done 


echo "</table>" 


Inscriere la stiri 


Opțiunile dumneavoastră: 


e Nume: Dumitriu 

e Prenume: Daniel 

e E-mail: daniel(ginfoiasi.ro 

Telefon: 404324201090 

e Titlul lucrări: Generator de situri Web 
e Rezumat: 


Lucrarea prezinta un generator de situri Web conceput in 


Vă mulţumim! 


Fig. 3.3 — Pagina generată de script după preluarea 
datelor din formular şi stocarea lor 
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5. Exerciţii propuse 


i. Să se scrie un script care să se lanseze în fundal şi care să verifice din minut în 
minut existența utilizatorului root, În caz afirmativ, i se va trimite un mesaj de 
salut, altfel va scrie într-un fişier toți utilizatorii conectaţi. 


2. P se conceapă un script care trimite prin poşta electronică un mesaj unei liste 
e utilizatori, listă stocată într-un fişier, fiecare adresă de e-mail fiind scrisă pe 
o linie a fişierului. 


3, Să se elaboreze un script care calculează 2 la puterea n, unde n este un număr 
întreg care se va da ca parametru în linia de comandă a programului. 


4. Să se scrie o interfață DOS pentru comenzile uzuale UNIX. Scriptul va accepta 
se comenzi: copy, ren, del, edit, type, dir, help, quit care vor 
substitui comenzile UNIX/Linux cp, mv, rm, joe, cat, 1s, man, respectiv exit. 


5. Să se conceapă o interfață de tip joc pentru manipularea resurselor sistemului 
de operare, Fişierele obişnuite vor fi considerate obiecte manevrate de spiriduşi 
(comenzi). Directoarele se vor considera încăperi care pot fi traversate de 
spiridusi. Incáperile pot avea in componentá diverse obiecte. Imaginati un set 
de directive pentru manipularea spiriduşilor, obiectelor şi încăperilor. 


6. Să se scrie un script care detectează care este anotimpul curent şi, în funcţie de 
anotimp, afişează un citat. De asemenea, să se modifice acest program pentru a 
putea fi folosit ca script CGI. 


7. Să se creeze un script care simulează jocul Spânzurătoarea, selectând aleatoriu 
dal din fișierul /usr/dict/words si interactionánd cu utilizatorul pentru 
ghicirea acelui cuvánt. Sá se transforme apoi acest program ín script CGI 


8 i li . P m $ ] inde 
P 
* Sá se listeze toti utilizatorii care au cont pe un Server ŞI care posedă pagini W eb 
pe acel Server. 


y : I nipularea 


10. Folosind eventual bash1ib, să se proiecteze un forum de discuţii pe Web 


Capitolul 4 
Limbajul Perl 


După o succintă prezentare a principalelor caracteristici 
ale limbajului Perl, capitolul ilustrează modalitățile de 
concepere a scripturilor CGI în Perl, insistându-se asupra 
prelucrării bazelor de date şi a documentelor XML. 
Capitolul se termină cu o serie de studii de caz reale. 


1. Prezentare a limbajului Perl 


m enumera câteva dintre caracteristicile specifice limbajului 


Pentru început, vo 
de sistem si apoi asupra prelucrării bazelor de 


Perl, insistând asupra programării 
date şi a documentelor XML. 


1.1. Generalităţi 


Creat iniţial pentru prelucrarea sofisticată a informațiilor textuale, Perl 
(Practical Extraction and Report Language) îl are ca părinte pe Larry Wall, în 
decursul timpului, la dezvoltarea limbajului contribuind şi alți numeroşi 
programatori. Distribuit gratuit, Perl a devenit favoritul administratorilor de sistem 
şi al programatorilor de aplicații Web, însă poate fi utilizat asemeni altui limbaj 
general. Ca şi Linux, Perl a crescut în mediul prielnic al Internetului, varianta 
curentă a limbajului fiind 5.006. Pe data de 18 decembrie 2001 s-au împlinit 14 ani 
de la apariţia limbajului, cea mai recentă distribuţie pentru Linux fiind Perl 5.6.1. 


mediile UNIX, împrumutând o 
standard şi păstrând filosofia de 
latformele 


Iniţial, limbajul a fost conceput special pentru 
serie de facilități oferite de shell-urile şi utilitarele 
bază a UNIX-ului, dar în prezent Perl este disponibil pentru toate p 


actuale (e.g. Mac OS, Windows sau OS/2). 


Ín proiectarea limbajului s-au avut in vedere urmátoarele principii: 
ə lucrurile simple să se poată realiza uşor, iar cele complexe să nu fie 

imposibil de implementat; 

există mai multe modalități de realizare a unui program, în funcţie de 

gradul de cunoaştere a limbajului de către dezvoltatorul acelui program. 


Drept caracteristici importante ale limbajului se pot enumera: 
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e  modularitatea — Perl oferă suport pentru mai multe paradigme de 
programare, ca de exemplu cea procedurală şi cea orientată-obiect; 
limbajul poate fi extins prin intermediul așa-numitelor module, punându-se 


la dispoziţie un număr impresionant de module standard (vezi şi secțiunea 
1.5); 


* portabilitatea — programele Perl se pot executa, fără modificări, pe orice 
platformă; 


e expresivitatea şi puterea — limbajul dispune de mecanisme puternice 
pentru manipularea datelor, prin intermediul expresiilor regulate şi a 
tablourilor; de asemenea, Perl poate fi folosit ca limbaj de sistem pentru 


lucrul cu entități ale sistemului de operare (fişiere, dispozitive, procese, 
socket-uri); 


e viteza de dezvoltare a aplicaţiilor — ciclul compilare-executie-depanare se 


poate realiza şi itera rapid; Perl nu oferă un interpretor clasic, ci un 
compilator-interpretor. 


Fiind gratuit şi posedând numeroase mijloace de documentare online, Perl poate 
fi folosit în special pentru dezvoltarea rapidă de aplicaţii de administrare a 
sistemului de operare şi destinate Web-ului, reprezentând un mediu ideal pentru 


conceperea scripturilor CGI. Mai mult, anumite servere Web (e.g. Apache) includ 
interpretoare Perl interne. 


1.2. Disponibilitate şi documentatii 


Mediul Perl se poate obține de pe Internet, via FTP sau HTTP, prin intermediul 
locaţiilor CPAN (Comprehensive Perl Archive Network). Principala sursă este 
ftp://îtp.funet.fi, dar se pot folosi și alte locaţii, listate la 
http://www.perl.com/CPAN/. 


De asemenea, orice distribuție actuală de Linux include interpretorul si 
manualele standard Perl. Pentru alte platforme, Perl poate fi obținut de la adresele 
amintite mai sus. Pe CD-ul care însoţeşte acest volum este disponibil mediul Perl, 
pentru diferite distribuții Linux sau alte sisteme de operare. 


Pentru a genera codul executabil al interpretorului Perl din sursele preluate din 
Internet, pentru un mediu UNIX (Linux) va trebui să scriem următoarele linii de 
comenzi de la prompt-ul sistemului, ca utilizatori cu drepturi de root: 


(infoiasi)$ ./configure # pentru configurare automata 


) 
(infoiasi)$ ./Configure # pentru configurare manuala 
(infoiasi)$ make 
(infoiasi)$ make test 
(infoiasi)$ make install 
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Perl include o serie de documentații online care pot fi parcurse prin intermediul 
bine cunoscutei comenzi man (încercaţi, de exemplu, man per1). Pentru anumite 
detalii sau documentatii referitoare la modulele Perl, se poate folosi comanda 
perldoc (vezi şi secțiunea 1.5). Astfel, dacă dorim să aflăm amănunte despre 
funcția standard Perl printf, vom da perldoc printf. De asemenea, purem 
recurge la opțiunea -£ pentru a afla detalii despre o funcție (e.g. peridoc - 


connect). 
Cele mai importante pagini de manual sunt: 
e peri —o trecere în revistă a documentatiilor Perl; 


e perlfaq — răspunsuri la întrebările puse frecvent despre Perl (Frequently 
Asked Questions - FAQ); 


e  perlsyn — sintaxa limbajului (vezi şi perirun — execuţia scripturilor Perl, 
perldebug — depanarea programelor, perlstyle — ghid de stil, perl func — 
funcţii predefinite, per 1sub — subrutinele Perl); 


e  perldata — structurile de date Perl (vezi şi perire — expresii regulate, 
perldsc - introducere în structuri de date, perllol - liste de liste, 
perlref — referințe, perlvar — variabile predefinite); 


e  perlop — operatorii şi precedenfa lor; 
e  perlmod — modulele Perl (vezi şi per1modlib); 


e  perlobj — suport pentru programarea obiectuală (vezi şi perltool — 
tutorial privind programarea orientată-obiect, perlbot — exemple de 
obiecte). 


Pentru a avea acces la una dintre documentatiile dorite, este suficient să tastăm, 
de exemplu, man perlsyn. 


Versiunile mai vechi de Perl puneau la dispoziție documentația în format text 
(Plain Old Documentation - POD). Pentru amănunte, consultați man pod, tar 
pentru a o converti în alte formate se pot folosi comenzile pod2man, pod2html Său 


pod2text. 


De asemenea, cititorii interesati pot parcurge articolele postate pe grupurile 2 
ştiri  comp.lang.perl sau documentatile în format  hipertext de la 
http://www.perl.com/perl/. 
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1.3. Trecere în revistă a limbajului 


Spre deosebire de alte limbaje, Perl este un limbaj interpretat, în sensul cá 
instrucţiunile Perl nu sunt convertite în cod executabil (nu se generează un fişier 
executabil, spre a fi rulat independent de interpretorul Perl). Vom spune despre 
programele Perl că sunt scripturi, un limbaj de tip script fiind destinat să 
prelucreze, să automatizeze şi să integreze facilitățile oferite de un anumit sistem 
(e.g. sistem de operare, server Web, navigator Web, aplicaţie de birou). Alte 
limbaje de tip script sunt bash, Python, Tcl/Tk ori JavaScript. 


Perl nu pune la dispoziţie un interpretor clasic, în sensul cá un script Perl nu este 
interpretat linie cu linie, ci în prealabil va fi compilat complet, de o componentă 
numită motor (engine) Perl, rezultând un limbaj intermediar, realizându-se diverse 
optimizări şi raportându-se posibililele erori/avertismente sintactice sau semantice. 


Acest cod intermediar, în cazul în care nu apar erori, va fi dat spre execuție 
interpretorului Perl. 


Interpretare 


vod situri lea 


Compilare 


Executie 
ced hinir 


Fig. 4.1 — Modalitatea de execuție a unui script Perl 


Având în vedere că Perl este un interpretor (similar shell-ului bash), prima linie 
a unui fişier-sursă Perl va trebui să fie următoarea: 


+! /usr/bin/perl 


Această linie indică încărcătorului sistemului de operare locaţia interpretorului 
Perl (în unele cazuri, s-ar putea să difere de directorul /usr/bin; daţi whereis 


perl pentru a vedea unde a fost instalat). Ea va fi ignorată în alte medii diferite de 
UNIX (Linux), fiind considerată simplu comentariu. 


Pentru a putea fi executat, fișierul memorând scriptul Perl va trebui să aibă 
permisiunea de execuție setată prin comanda chmod, 
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Un prim program Perl 


În continuare, vom scrie un program Perl. din care vom putea na 
principalele caracteristici definitorii ale limbajului. Ne propunem să ea p i» 
script care să contorizeze numărul de apariții ale elementelor dintr-un docum 
XML: 


i! /usr/bin/perl 


elemente, xml.pl i af 
program care furnizeaza lista elementelor unice 
prezente într-un document XML si 

numarul de aparitii ale fiecaruia 


ae oke e cR 


my $elemente, Saparitii; 


# programul principal 
while (<>) ( 
4& cit timp se mai poate citi de la intrarea standard... 
if (/«[^MV»]*»/) ( 
4 am intilnit "<", orice alte caractere 
4 exceptind "/»" urmate de ">" | 
4 apelam o rutina de extragere a unui element 
&extragere element; 
) 
) 
4 am terminat de prelucrat f 
+ vom afisa lista elementelor gasite 
&afiseaza elemente(); 
# gata! 
exit; 


i i lementelor gasite 
+ subrutina de afisare a e gas 
# se vor sorta cheile tabloului asociativ $elemente 
8 si se va afisa la iesirea standard fiecare cheie 
sub afiseaza elemente { 
3$ pentru fiecare element al Pau ui 
foreach $element (sort keys &elemente) C 
4 afisam formatate numele de element si 
+ numarul aparitiilor lui EUN 
rintf "$-20s - $20 aparitii. ne — 
j "$elemente(Selement)'", $aparitii(Selement): 


i lor de elemente 
4 subrutina de extragere a nume 
# apelata de fiecare data cină un element este detectat 
+ intr-o linie citita de la intrarea standard 


1 aceste nume vor fi stocate intr-un tablou pic 
4$ pentru extragerea numelor de elemente se va sa 
+ o expresie regulata =~ si variabilele $' si 
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sub extragere element { 
Șrestul_liniei = $; 
# atita timp cit in linia transmisa mai sunt 
# alte elemente XML... 


while ($restul_liniei =~ /<{^\/>]*>/}) { 
$restul_liniei = $'; 
element = $&; 
# orice caracter majuscul e transformat in minuscul 
S$element =~ tr/A-Z/a-z/; 
# orice "«" sau ">" este eliminat 
$element =~ s/{<|>)//g; 


# trecem la urmatoarea iteratie 
# daca elementul e instructiune de procesare 
next if /^(<\?)/; 


# il introducem in tablou, daca nu exista, 
8 altfel incrementam numarul de aparitii 
if ($elemente($element) eq "") ( 
$elemente($element) = Selement; 
$aparitii($element) = 1; 
) 
else ( 
Șaparitii ($element)++; 
) 
) 4 final de "while" 
) + final de subrutina 


Programul anterior se poate edita folosind orice editor de texte (e.g. vi, joe sau 
emacs). Vom salva „Codul sub denumirea elemente xml.pl şi vom seta 
permisiunile de execuție după cum urmează: DE. 


(infoiasi)$ chmod 755 elemente xmi.pl 


Pentru a invoca interpretorul Perl, vom folosi una dintre următoarele forme: 


(infoiasi)$ perl elemente xml.pl 
sau: 


(infoiasi)$ ./elemente xml 


Es dE "i executie a acestui script este urmátorul (datele vor fi citite de la 
intrarea standard; vom semnala terminarea i ji i 
: nala t introducerii lor prin CTRL+D, caracterul 
; vom s ri racte 
EOF — End Of File in Linux): m 


(infoiasi)$ ./element xml 
<?xml versionz"1.0" ?» 
«studenti» 
«student» 
«nume»Gabriel Enea«/nume» 
«an»4«/an» 
«/student» 
«student» 
«nume»Silvana Solomon«/nume» 
<an>4</an> 
</student> 
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<student> 
<nume>Manuel Subredu</nume> 
<an>3</an> 
</student> 
</studenti> 
^D 
Rezultatul afişat la ieşirea standard va fi: 
'an' - 3 aparitii. 
'nume' - 3 aparitii. 
'student' - 3 aparitii. 
'studenti' - 1 aparitii. 


Interpretorul Perl poate fi rulat cu diverse opțiuni — de exemplu opțiunea „-w”, 
care va afişa toate avertismentele în timpul compilării şi rulării codului intermediar. 
De multe ori, această opţiune va fi utilizată din raţiuni de verificare a corectitudinii 
programului. Desigur, pot fi date şi alte opţiuni, pentru mai multe detalii cititorul 
fiind îndemnat să consulte man perl. Aceste opțiuni pot fi transmise interpre- 
torului şi în cadrul liniei de preambul al codului, de exemplu: 
+! /usr/bin/perl -w -t 

O opţiune utilă este ,,-e", care ne permite să executám linii de cod Perl direct din 
linia de comenzi: 

(infoiasi)$ perl -e 'print "Salut!"' 

Astfel, putem folosi această opțiune pentru a afla versiunea curentă a limbajului, 

recurgánd la afişarea valorii variabilei predefinite $1: 
(áinfoiasi)$ perl -e 'print "$]Win";' 
5.006 

De asemenea, utilizând opţiunea „-v” putem afla versiunea curentă a distribuţiei 

Perl instalate în sistem: 


(infoiasi)$ perl -v 
This is perl, v5.6.0 built for i386-linux 


Caracteristici principale 


Putem observa cá programul de mai sus este foarte asemánátor cu un program 
scris în limbajul C sau cu un script bash. 


Ín cele ce urmeazá vom íncerca sá descriem caracteristicile principale ale 
limbajului: 


e sintaxa — limbajul Perl are o sintaxă inspirată din C, delimitatorii fiind 
spaţiile albe. După cum era de aşteptat, Perl este case sensitive, iar 
comentariile sunt precedate de caracterul ,,£". Fiecare instrucțiune a 
limbajului este terminată de „;”, iar acoladele sunt delimitatori de bloc de 
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instrucțiuni. Recomandám indentarea construcțiilor sintactice Perl si 
utilizarea cât mai multor comentarii pentru ca programele să poată fi uşor 
de parcurs şi de înţeles de către cititor. 


e tipuri de date şi variabile — prima linie a programului declară două tablouri 
asociative care vor stoca elementele găsite și numărul de apariţii ale 
acestora: 


my $elemente, $aparitii; 


Reamintim faptul cá o' variabilă reprezintă o zonă (de obicei contiguă) de 
memorie în care se stochează o valoare de un anumit tip, zonei fiindu-i asociat un 
nume (identificator al acelei variabile). Această zonă poate fi publică sau privată, 
permanentă sau temporară pe parcursul execuției unui program. Numele unei 
variabile trebuie să înceapă cu o literă şi poate conţine caracterele alfanumerice şi 


» 
»— c 


Tipurile de date in Perl sunt fie scalare (simple) sau compuse (complexe). 


Ca tipuri scalare se pot aminti intregii cu semn si numerele flotante (dublá 
precizie). Tot de tip scalar se consideră tipul desemnând șiruri de caractere. Fiind 
un limbaj interpretat, Perl nu impune declararea variabilelor, ele fiind automat 
inifializate, în funcție de contextul utilizării. Implicit se consideră cá o variabilă 
numerică este inifializatá cu 0, iar un şir de caractere — cu valoarea " * (şir vid). 
Şirurile de caractere sunt delimitate de apostrofuri sau de ghilimele. Ca şi în C, 
putem folosi aşa-numitele caractere escape, ca de exemplu „\n” (linie nouă) sau 
„NE” (caracterul tab). Pentru a avea acces la valoarea unei variabile scalare, vom 
prefixa numele ei cu caracterul „$”, după cum se poate remarca din exemplul de 
mai jos: 

$nr_studenti++; 


$pi = 3.14152965; 
$limbaj = "Perl"; 


În loc de a folosi ghilimele sau apostrofuri, şirurile pot fi delimitate de 
construcţii precum: 


q/Victor Tarhon-Onu/ # identic cu 'Victor Tarhon-Onu' 
aa/Victor Tarhon-Onu/ # identic cu "Victor Tarhon-Onu* 
+ executia unei comenzi, identic cu "ls -la` 

gx/ls -la/ 


qw/Perl C Java/ + lista de cuvinte 


l Ca si la shell-ul bash, diferența dintre apostrofuri şi ghilimele ca delimitatori de 
gir este datá de faptul cà valoarea variabilelor este accesibilá in cazul ghilimelelor: 


print "Studenti: $nr studentiWn"; 
# variabila Slimbaj nu va fi expandata 
print 'Acest $limbaj este greu?'; 


Drept tipuri complexe avem la dispoziţie: 
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e tablourile indexate sunt liste ordonate de scalari, elementele unei liste 
fiind accesibile prin intermediul unui indice numeric; numele unui vector 
va fi precedat de caracterul ,,e", iar indicele va porni de la zero şi va fi 
încadrat între paranteze pătrate: 


QGabsenti[$nr studenti] = 20; 
Glimbaje = ("Ada", "C", "Java", "Lisp", "Perl"); 
Qmix = ("Pink*, 1978, "Floyd", $pi):' 

Dupá cum se poate remarca, un tablou poate contine elemente eterogene, de 
tipuri scalare . diferite. Elementele delimitate de „(© şi ,)" compun o listă. 
Accesarea unui element se va realiza astfel (caracterul „e” este înlocuit cu „$” 
pentru că selectăm un element scalar): 

$limbajeí4] 

De asemenea, putem avea acces la un subtablou indicánd un interval de indici 
(subtabloul fiind tot un tablou, va avea numele prefixat de e”): 

print "Primele trei limbaje: Glimbaje[0..2]Wn"; 


Pentru a adăuga şi elemente la sfârşitul unui tablou, vom putea folosi funcţiile 
predefinite push () şi pop(): 
push (limbaje, "Prolog"); 
print "Ultimul limbaj eliminat:", pop (limbaje) ; 
Dacă dorim să adăugăm şi să ştergem elemente la şi de la începutul unui tablou, 
vom utiliza unshift (), respectiv shift (). 


Lungimea unui tablou va putea fi aflată astfel (cele două construcții au acelaşi 
efect): 


Qlimbaje; 
scalar(Glimbaje); 


$nr limbaje 
$nr limbaje 


Vom obtine indexul ultimului element al unui tablou scriind: 

$nr limbaje = @#limbaje; 

Pentru ca elementele unui tablou să devină cuvinte ale unui şir de caractere, vom 
utiliza o construcție de genul: 

$sir = "Glimbaje"; 

Implicit, elementele tabloului vor fi delimitate de un spațiu. Pentru a schimba 
delimitatorul, vom apela la variabila scalară predefinită cu numele $", după cum se 
observă în următorul exemplu: 

$ "ono | un 
$sir = "Glimbaje":; 
print $sir, "Mn"; 

Tablourile pot fi utilizate nu doar in partea dreaptá a unei atribuiri, ci şi în partea 
stângă: 
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($primul, $al doilea) = 8limbaje; 
($primul, Grestul) = 8limbaje; 

Pentru prima linie, variabila $prima va primi valoarea primului element al 
tabloului elimbaje, iar $al doilea — valoarea celui de-al doilea element al 
aceluiaşi tablou. În a doua linie, $prima va primi de asemenea valoarea primului 
element al tabloului, dar erestul va fi un tablou conținând restul elementului 
tabloului e1imbaje. 


Folosind o construcție similară, putem realiza atribuiri multiple de variabile 
scalare într-o singură linie de program: 


($studenti, $profesori) = (absenti, 7); 
Aceasta are acelaşi efect ca atribuirile individuale: 


$studenti 
$profesori 


Sabsenti; 
2 


"nou 


e tablourile asociative (hash) sunt tablouri în care indicele numeric este 
substituit de un şir de caractere. Le putem vedea ca perechi (cheie, 
valoare), cheile sau valorile nefiind ordonate. Tablourile asociative vor fi 
accesate precedând numele lor cu caracterul „3”, putându-le initializa 


astfel: 
+ numarul de studenti din fiecare grupa 
$grupe = ("grupal*, 25, 
"grupa2", 20, 


"grupa3", 24, 
"grupa4", 25); 


O modalitate mai intuitivă este: 


grupe = ("grupal" => 25, 
"grupa2" => 20, 
"grupa3" => 24, 


"grupa4" x 25); 
Pentru a accesa un anumit element, vom putea scrie: 
print "Grupa a 3-a are $grupe("grupa3") studenti. Wn"; 
Între acolade vor putea fi precizate numai nume de chei, nu valori ale cheilor, iar 


cheile nu pot fi accesate specificând valorile lor între acolade. O cheie trebuie să fie 
unică, dar valorile cheilor pot fi duplicate, 


Conversia din tabel indexat în tabel asociativ şi invers se poate realiza tot prin 
intermediul atribuirii obişnuite. 


Asupra unui tablou asociativ nu mai putem aplica funcţiile push 0, pop), 
shift () Sau unshift (), dar putem folosi funcţiile keys() şi values () pentru a 
obține lista cheilor, respectiv cea a valorilor unui tablou asociativ. Aceste liste pot 
fi iterate cu ajutorul instrucţiunii foreach. Funcţia standard each() returnează o 
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pereche cheie-valoare putând fi folosită, de asemenea, la parcurgerea unui tablou 
asociativ: 


while (($grupa, $studenti) = each($grupe)) i 
print "Grupa $grupa are $studenti studenti.Mn"; 


) 
Inserarea se poate face simplu prin: 
$grupeí("grupa5") = 20; 
Un element se poate elimina cu ajutorul funcţiei delete (), iar existența unui 
element se poate afla prin exists (): 


if exists(Sgorupe("'grupa4")) ( 
deletei($grupe(["grupe4")); 
) 


Pentru sortarea unui tablou vom apela funcţia sort (). Această funcție permite 
precizarea unei funcții de comparație a elementelor definită de utilizator. 
Inversarea unei liste de elemente se va realiza cu reverse (). 


Remarce 


ə Din moment ce numele de variabile sunt prefixate de caractere diferite în 
funcţie de tipul variabilelor, putem folosi în acelaşi program nume de 
variabile precum $studenti, $studenti Şi Gstudenti, fără ambiguităţi. 
Pentru a evita conflictul cu nume de variabile sau de funcții predefinite 
(care întotdeauna sunt scrise cu minuscule), vom putea alege identificatori 


de variabile scrişi cu majuscule: 


+ se evita conflictul cu numele de functie log() 
open(LOG, 'httpd.log'): 


e Sunt puse la dispoziţie diverse variabile predefinite, utile în anumite 
contexte. Se pot menționa, de exemplu, variabilele: 


e $$ —identificatorul procesului curent; 

e $? — codul de eroare returnat de ultima comandă executată; 

ə $0— numele programului care se execută; 

e  $] — versiunea interpretorului Perl, ca număr zecimal (e.g. 5.006); 


e $6 — mesajul de eroare semnalat de interpretorul Perl returnat în 
urma execuţiei celei mai recente funcții eval 0; 


e $, — separatorul de ieşire folosit de print() pentru afişarea 
câmpurilor de date; 
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ə  $X —separatorul de ieşire pentru afişarea înregistrărilor; 


e $* — separatorul utilizat la afişarea listelor; 


e  $_ — intrarea implicită sau spaţiul de căutare într-un şir (poate fi 
folosită şi SARG). 


De asemenea, sunt disponibile următoarele tablouri: 


e  GARGV — argumentele furnizate scriptului ($anGv(0] referă primul 
argument, nu numele programului); 


e  $ENv— variabilele de mediu disponibile; 


e  $sIG-—rutinele de tratare a semnalelor: 


€ se ignora SIGQUIT 

$SIG(QUIT) = 'IGNORE'; 

# setarea functiei de tratare a unui semnal 
ŞSIG(PIPE) = 'tratare semnal'; 

# comportamentul implicit 

$SIG(INT) = 'DEFAULT'; 


e  QGINC — lista locaţiilor bibliotecilor standard Perl, utilizate la 
includere. 


ə Desigur, putem combina valorile scalare cu tablourile indexate sau 
asociative, generând structuri de date deosebit de complexe (tablouri 
asociative conținând ca elemente alte tablouri indexate sau asociative, liste 
de liste etc.). Pentru amănunte, se poate consulta man perllol. 


e În afara tipurilor prezentate, mai pot fi utilizate referintele la subrutine 
(funcţii sau proceduri), prefixate de caracterul ,,&", sau la alte obiecte. 


Putem crea o referinţă la orice variabilă sau subrutină Perl prin prefixarea acelui 
identificator cu caracterul „V°: 


$referinta, la, mediu 
$referinta, la rutina 


%ENV; 
&sortare; 


un 


N 
N 

Această construcţie este similară celei oferite de limbajul C prin intermediul 
operatorului & (address-of). Dereferentierea se realizează cu ajutorul operatorului $. 


De asemenea, se poate folosi construcţia ,,*" pentru a defini un typeglob. Un 
typeglob (tip global) poate fi privit ca un substitut al tuturor variabilelor care poartá 
acelaşi nume, iar atunci când este evaluat, un ftypeglob returnează o valoare scalară 
care reprezintă toate obiectele Perl purtând numele respectiv (e.g. scalari, tablouri, 
descriptori de fişier, subrutine). 
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Pentru o variabilă, putem preciza scopul (sau domeniul vizibilității ei). În mod 
normal, orice variabilă folosită undeva într-un program va fi accesibilă (vizibilă) 
oriunde în cadrul acelui program. Pentru a limita vizibilitatea unei variabile, vom 
folosi una dintre următoarele declaraţii: 


e my declară o variabilă ca fiind disponibilă doar în cadrul blocului de 
instrucţiuni curent, în interiorul unei subrutine sau în cadrul unui eval (). 
Pot fi declarate cu my doar variabile scalare sau tablouri (indexate ori 
asociative). 


e  1oca1 este similară cu my, cu excepția faptului că variabila va fi disponibilă 
dinamic în cadrul unui bloc, subrutine sau eva1(). O variabilă local va 
salva valoarea variabilei globale cu acelaşi nume şi o va restaura la 
părăsirea blocului, subrutinei sau construcției evai() în care a fost 
declarată. 


Un exemplu de utilizare a declaraţiei local: 


$numar = 5; 
print "Inainte: $numarMn"; 


( 


local $numar; 


for ($numar = 2; $numar <= 6; Snumar++) ( 
print "Numarul este $numarMn"; 
) 


) 
print “Dupa: $numarin"; 


Pentru a testa dacă o variabilă este definită, vom putea utiliza funcția predefinită 
definea (). O variabilă scalară care nu confine nici o valoare validă (număr sau şir 
de caractere) va fi considerată nedefinită, stocând valoarea specială undef. 
Cuvântul-cheie undef poate fi utilizat pentru a declara ca nedefinite diferite 
variabile: 


undef $absente; 
undef &calcul perimetru; 


e operatorii sunt cei similari din limbajul C (la fel, precedenta lor este aceeaşi). 
Specifici limbajului Perl sunt următorii operatori: 


e  ** este operatorul de exponențiere (similar celui din Fortran); astfel, 2 la 
puterea 5 va fi scris 2**5; 


e veste operatorul unar de creare a unei referințe; 


e =~ este operatorul de atagare a unei expresii scalare la un şablon (pattern) 
al unei expresii regulate (vezi secțiunea 1.4); 
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° t~ este similar precedentului operator, dar valoarea returnată este negată 
logic; astfel, următoarele construcții sunt echivalente: 


$sir !~ /sablon/ 
not $sir =~ /sablon/ 


e xeste operatorul de multiplicare a unui gir sau tablou: 


# un rind de 80 de caractere ara 
@rind = ('?') x 80; 

# un tablou hash initializat 
@stuđenti = qw(Silvana Daniel Gabriel) 


i 


,8note(Gstudenti) = (10) x estudenti; 
e  . este operatorul de concatenare a şirurilor de ásit si 
caractere (poate fi regăsit si 
la PHP): 3 T 
$salut = "Buna " , "ziua!" , "An"; 


+ este operatorul de definire a unui interval, putând fi utilizat în contextul 
listelor de numere sau şirurilor de caractere: 

i afisarea valorilor de la 1 la 33 

print (1..33); 

+ toate combinatiile de la 'aa' la 'zz' 

Gcombinatii = ('aa'..'zz'); 

+ ultimele 3 limbaje 

print €limbaje[-3..-1]; 


Pentru compararea valorilor numerice se vor utiliza operatorii relationali «, > 
ld d (ca in C). Pentru a compara siruri de caractere, se vor folosi 
Operatorii 1t, gt, 1e, ge, eq şi ne (ca în Fortran). Aceşti operatori vor returna 1 
pentru valoarea logică „adevărat” şi «n (şirul vid) pentru valoarea logică „fals”. Se 
mai poate folosi <=> pentru valori numerice care va returna -1 dacă operandul stán 
este mai mic decât cel drept, 0 dacă operanzii sunt egali şi +1 dacă operandul e 


este mai mare decât operandul drept. Pentru şiruri de caractere, în loc de <=> vom 
folosi cmp. 


Observaţii 


e Operatorul de autoincrementare oferă o funcționalitate suplimentară, 
putând incrementa şi un şir de caractere: 


print ++($grupa = 'gi'); # afiseaza 'g2' 
e Operatorul unar - poate fi utilizat, de asemenea, pentru şiruri, producând 
acelaşi şir, dar prefixat de caracterul um 


$unu = "unu"; 
$minus_unu = -"unu'; 


e [n Perl există o multitudine de operatori unari care la prima vedere par 
funcții; astfel, sin, cos, log, int, rand, oct, hex, exists, delete, glob, 
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ref, my, return Sau exit sunt de fapt operatori unari. Astfel, putem să nu 
încadrăm argumentele între paranteze, cele două linii fiind echivalente: 


$valoare = hex "CB74"; 
$valoare - hex("CB74"); 


Utilizarea lui exists ca operator poate fi urmáritá in continuare: 

print "Grupa existaWMn" if exists $grupe("grupa3"); 
Operatorii pe biți pot fi utilizați nu numai pentru întregi, ci şi pentru 
celelalte tipuri scalare: 


# vom obtine "020.44" 
print."123.45" g& "234.56" 


e Operatorii logici || şi && (similari cu cei din C) nu vor returna 0 sau 1, ci 
ultima valoare evaluată. De asemenea, pot fi folosiţi, având aceeaşi 
semantică, operatorii or şi and (desigur, în loc de operatorul negaţie logică 
! poate fi utilizat not). 

open (FISIER, "index.html") || 
die "Fisierul nu poate fi deschisin"; 

e Perl pune la dispoziţie şi operatorii de asignare, astfel încât următoarele 
construcții sunt echivalente (unde oP este un operator Perl): 

$variabila OP- $valoare; 
$variabila = $variabila OP $valoare; 


e instrucfiunile limbajului în Perl sunt în fapt expresii evaluate pentru efectele lor 
colaterale, O secvență de instrucțiuni formează un scop denumit bloc, în 
general un bloc fiind delimitat de paranteze, fiecare instrucţiune a blocului 
terminându-se cu ,;". În afară de instrucţiuni, un program Perl mai poate 
cuprinde declarații care pot fi văzute drept instrucţiuni, dar care sunt efective 
la momentul compilării, nu la rulare. Explicit, trebuie declarate obligatoriu 
numai declaraţiile de formate şi de subrutine (după cum vom vedea mai jos). 


Ca şi în alte limbaje, instrucțiunile pot fi grupate în instrucțiuni de asignare, 
instrucțiuni de test şi instrucțiuni de control. 


Pentru instrucțiunile de test sau cele iterative, trebuie să precizăm faptul că 
pentru obținerea valorilor logice întotdeauna se va evalua în cadrul unui context 


scalar. Regulile sunt: 
e orice şir de caractere este evaluat la valoarea „fals” dacă este vid (*") sau 
contine caracterul zero (*0"); 
e orice număr este evaluat ca „fals” dacă are valoarea 0 (sau 0.0); 
e orice referință este adevărată; 


e orice valoare nedefinită se consideră a fi falsă. 
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Majoritatea instrucțiunilor sunt similare celor din limbajele C sau Java, cu 
precizarea că atât if, cât şi for sau while necesită prezența obligatorie a 
acoladelor. Astfel, următoarea linie este corectă în C, dar generează eroare în Perl: 


if ($nr studenti >= 30) 
printf ("Prea multi studenti...in*); 


In loc de eiseif la o instrucțiune i£ imbricatá se va scrie elsif. 


O instrucțiune specifică limbajului Perl este unless (complementara lui i£), 
fiind echivalentă cu un i£ având condiţia de test negată: 
unless ($nr studenti « 30) ( 
print "Prea multi studenti... in"; 


) 


Mai natural, putem scrie instrucțiunile i£ şi unless în forma postfixată: 


print "Prea multi studenti...An" if ($nr studenti >= 30); 
$nr studenti-- unless $nr studenti; 


La fel, instrucțiunea de ciclare while poate fi scrisă astfel: 


Șnr_studenti++ while $nr_studenti < 30; 


Complementara lui while este until, putând fi folosită in conjuncfie cu do: 
do ( 
$linie = <STDIN>; 
+ prelucreaza linia... 
) until Şlinie eq ".WMn"; 


Alături de for, avem la dispoziţie foreach, utilizată mai ales la iterarea 
tablourilor, după cum am văzut. Expresia dintre paranteze este întotdeauna evaluată 
ca listă, fiecare element al acesteia fiind atribuit pe rând variabilei de ciclu. 
Variabila de ciclu este o referinţă a listei, nu o copie a acesteia. Astfel, modificând 
într-un ciclu foreach variabila de ciclu, vom asista la modificarea tabloului pe care 
îl itereazá: 

note = (9, 9, 7, 10, 5, 8, 8); - 
foreach $nota ( Gnote ) ( 
print "$nota\n" unless $nota i= 10; 
$nota*-*; 


) 


print "GnoteMn"; 


În fapt, intern fox gi foreach pot fi considerate echivalente. De exemplu, 
urmátoarele linii sunt corecte: 


for $contor (reverse 'STOP', 1..33) ( 
print $contor . "An"; 
Sleep (2); 

) 
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Instrucţiunile while, for $i foreach pot include o instrucțiune continue 
(folositá rareori) care va defini un bloc de instrucţiuni ce va fi executat de fiecare 
dată când s-a terminat blocul precedat de cuvântul-cheie vniie sau la comanda 
explicită de trecere la următoarea iteraţie. 


De exemplu, codul: 
for ($grupa = 1; $grupa < 5; $grupa**) { 
print $grupe($grupa); 
) 
este echivalent cu: 


$i = 1; 
while ($grupa « 5) ( 
print $grupeí($grupa); 
Peni 
continue { 
$grupa*t*; 
) 
Dupá cum se poate remarca, semantica lui continue in Perl diferá de cea a 


instrucţiunii continue a limbajului C. 


Pentru a modifica fluxul firesc de iterare al unui ciclu, se pot folosi next şi last, 
Comanda next (similară instrucţiunii continue din C ori Java) permite saltul la 
sfârşitul blocului de instrucțiuni şi începerea următoarei iterații. Comanda last 
(similară cu break din C) va termina complet ciclul asupra căruia se aplică. Mai 
poate fi utilizată şi redo, care restartează o iterație, fără a se evalua din nou 
condiţia (blocul continue, dacă există, nu este executat). 


Un exemplu (a doua grupă nu va fi afişată): 
for ($grupa = 1 ; $grupa «-4 ; $grupat*) { 
next if Sgrupa == 2; 
print "Grupa: $grupa Mn"; 
) 


Aceste instructiuni pot fi utilizate si pentru cicluri etichetate: 


FOR1: foreach $contori (8listal) ( 
FOR2: foreach $contor2 (G81ista2) { 
next FOR1 if $contori > $contor2; 
$contori += $contor2; 
) 
) 


Perl nu oferă instrucțiunea switch din C, dar dă posibilitatea de a o simula prin 
intermediul blocurilor vide. Un bloc vid (etichetat sau nu) poate fi considerat drept 
ciclu care va fi executat o singură dată (deci putem utiliza redo pentru a-l re- 
executa sau last pentru a-l părăsi brusc): 
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SWITCH: ( 
/fisiere/ && do ( 
$fisiere = 1; 
* se vor procesa fisiere... 
last SWITCH; 


/directoare/  && do ( 
$directoare - 1; 


# se vor procesa directoare... 
last SWITCH; 


/dispozitive/ && do ( 
$dispozitive = 1; 
4 se vor procesa dispozitive... 
last SWITCH; 
): 
# se vor procesa alte entitati... 
$altceva = 1; 


) 


Putem renunța chiar la etichetarea blocului 
| t ui. Un alt exemplu poate fi parcurs î 
secțiunea 2.2 a acestui capitol. ss VP 


° subrutinele sunt funcții sau proceduri care pot fi definite de utilizator 
oriunde în program, pot fi încărcate dintr-un alt fişier (via do, require ori 
use) sau se pot genera dinamic, „din zbor”, recurgând la funcția eva1 (). 


Declaraţia unei subrutine are sintaxa: 


sub nume ( parametri ) { 
bloc 
) 


Lista parametrilor poate lipsi, la fel şi blocul de instrucțiuni: 


4 definirea unui prototip 
sub aleatoriu (98); 


Rutina aleatoriu va avea un singur argument de tip scalar, putând fi apelată 
astfel: aleatoriu (7). 


l Uzual, la momentul declarării unei subrutine se realizează $i definirea corpului 
ei: 


sub listeaza limbaje ( 
print "Limbaje: n"; 
foreach $limbaj ( & ) 4 
print "\t$limbaj\n"; 
) 
) 


Apelarea unei subrutine se poate realiza în mai multe moduri. De exemplu: 


* fara parametri 
&listeaza limbaije:; 
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4 cu parametru ('&' e optional daca se dau parametrii) 
listeaza limbaje(81imbaje); 
+ apelarea prin referinta ('&' poate lipsi) 
&S$listeaza limbaje (limbaje) ; 
Caracterul „&” poate lipsi din fata unei subrutine dacă aceasta a fost definită în 
prealabil (ori dacă a fost importată dintr-un alt modul). 


r 


Modelul de pasare a parametrilor de intrare si iegiere este simplu: toți parametrii 
unei subrutine sunt transmigi prin intermediul unei liste de scalari, iar eventualele 
valori multiple returnate sunt disponibile tot ca listă de scalari, cu conversii 
automate de tipuri (dacă este cazul). Parametrii pasați oricărei rutine Perl vor fi 
regásiti ca tablou în variabila specială $_. Orice operațiune cu tablouri poate avea 
loc, desigur, si asupra acestei variabile. Acest lucru asigură pasarea unui număr 
variabil de parametri. Mai mult, pentru a avea acces indexat la parametri specifici, 
putem folosi indici (e.g. $ t0] pentru primul argument sau $ [2] care îl 
desemnează pe cel de-al treilea). Un anumit parametru poate fi testat dacă este 
definit cu ajutorul funcției defined(). Putem furniza parametri nedefiniți cu 
ajutorul lui undef: 


select (undef, undef, undef, $timp); 


Pentru ca o rutină să returneze valori codului apelant, vom folosi return (dacă 
trebuie transmis un tablou, vom utiliza return @_). 


Fiecare subrutină poate include variabile private declarate cu my. În Perl, 
subrutinele pot fi apelate recursiv, ca și în alte limbaje. 


Limbajul Perl pune la dispoziția programatorilor o paletă largă de funcții 
predefinite. Lista tuturor funcţiilor predefinite poate fi parcursă consultând anexa 
acestei lucrări. 


În cadrul programului prezentat la începutul acestui subcapitol se observă 
utilizarea funcţiei predefinite print£ pentru a afişa formatat diverse date. O altă 
funcţie des folosită este print (această ultimă funcție nu realizează şi formatarea 
fixă a datelor). 


Prelucrarea fişierelor şi directoarelor 


Manipularea fişierelor la nivelul sistemului se realizează uzual prin intermediul 
descriptorilor de fişier. Un descriptor de fişier desemnează o conexiune de 
intrare/ieșire între programul Perl şi sistemul de operare. 


Ca şi alte limbaje de programare, Perl pune la dispoziție trei descriptori de fişier 
care sunt preluaţi de la procesul-părinte al interpretorului de comenzi şi sunt 
asociați dispozitivelor de intrare/iegire deja deschise de acesta: STDIN, STDOUT şi 
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STDERR. Aceşti descriptori de fişiere au aceeaşi semnificație ca stdin, stdout şi 
stderr din limbajul C sau descriptorii 0, 1, respectiv 2 din bash. 


Pentru numele descriptorilor de fişiere, limbajul Perl rezervă un spaţiu de nume 
separat: aşa cum putem avea o variabilă scalară $x, un tablou ex, un tablou 
asociativ $x, o subrutină x etc., în acelaşi program putem avea şi descriptorul de 
fişier x, fără nici un pericol de confuzie. 


Descriptorii STDIN, STDOUT şi STDERR pot fi utilizați fără a-i deschide, pentru că 
ei sunt implicit deschişi, 


Pentru citirea unui şir de caractere de la intrarea standard, folosind STDIN, vom 
recurge la funcționalitatea oferită de operatorul ,,«»". 
print STDOUT "Un nume, va rugam: "; 


$nume = «STDIN»; 
print STDOUT "Salut, $nume.An"; 


Ín acest exemplu remarcăm si specificarea explicită a descriptorului srpour ca 
argument al funcției print (). În variabila $nume vor fi stocate caracterele preluate 
de la intrarea standard, inclusiv caracterul newline, care marchează finalul 
introducerii şirului de la terminal. Uneori este de dorit ca acest ultim caracter să fie 
eliminat. Pentru a realiza acest lucru vorm apela funcția predefinitá chop 0): 
$nume = <STDIN>; 


chop ($nume) ; 
print "Salut, $nume. in"; 


O altă funcţie utilă este chomp (), care va şterge toate caracterele newline de la 
sfârşitul parametrului primit şi va returna numărul de caractere eliminate. 


Operatorul „<>” poate fi folosit pentru orice descriptor de fişier. În conjunctie cu 
o variabilá scalará, va realiza citirea unei linii de fişier. De asemenea, poate fi 
utilizat într-o atribuire a unui tablou, caz în care se va citi întregul conţinut al unui 
fişier, fiecare element al tabloului reprezentând o linie a acelui fişier: 


Glinii = «DESCRIPTOR» 


La fel, funcţia print () poate avea ca prim argument un descriptor de fişier (vezi 
şi exemplele de mai jos). 


Dacă nu se specifică nici o variabilă, atunci operaţiile de intrare/iesire se vor 
realiza prin intermediul variabilei speciale $ . O altă variabilă pe care o putem 
folosi este $., care va indica numărul curent al liniei dintr-un fişier, numerotarea 
pornind de la 1. 


Similar altor limbaje, deschiderea unui fişier se realizează cu ajutorul subrutinei 
open (), care acceptă unul, doi sau trei parametri: 
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OR) 

open (DESCRIPT 

open (DESCRIPTOR, NUMEFIS) á 
open (DESCRIPTOR, MOD, NUMEFI 


i i i ierului poate 
DESCRIPTOR este descriptorul asociat numelui de fişier (numele fişierului p 


avea mat multe semnificaţii, după cum vom vedea mai jos), NUMEF IS reprezintă 
3 


fişier din sistemele de fişiere locale sau montate prin reţea. 


i i i; iar după 

iabi numele fişierului, iar 
În pri bila $DESCRIPTOR confine | i 
Ae locat si un descriptor de fisier cu același 


apelarea lui open $DESCRIPTOR Và fi a 
nume. 


durile în care pot fi deschise fişierele 


RI E 


T EXT x 


Închiderea unui fig 
primeşte ca unic argument descriptoru 


i ită are 
ier se realizează cu subrutina predefinită close(), c 
de fişier care se doreşte a fi închis. 


ire şi închi i figi átorul: 
Un exemplu de deschidere, citire şi închidere a unui fişier este urm 
+ parcurgem /etc/passwd 
my $DESCRIPTOR; " 
NUMEFIS-2"/etc/passwd"; 
e (DESCRIPTOR, "<", SNUMEFIS) |] 


uri "Nu se poate deschide SNUMEFIS: FAN zm ids 
y ($username $passwd, $uid, $gid, $gecos, 
m ' 
j DESCRIPTOR>) { l m 
uo men) $passwd, $uid, $gid, $gecos, $home, $ 
; e i nod uid == 0; 
ee "$username are drepturi dee E Ap M AP 
une t "username este un utilizator privilegiat. 
prin 


) 
close (DESCRIPTOR) ; 
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Apelurile echivalente ale funcției open () în acest caz ar putea fi: 


open (DESCRIPTOR, "«$NUMEFIS"); 
open (DESCRIPTOR, SNUMEFIS); 


Nord fisierului poate fi precedat sau urmat de caracterul |”, caz în care 
s i 3 , 
s a poate fi P şir de comenzi externe de la care se va prelua ieşirea standard 
re vor avea drept intrare datele de iesi ise 1 i 
: ieşire scrise in descriptorul DESCR 
IPTOR. 
Urmátoarele apeluri sunt echivalente din punctul de vedere al rezultatului obținut: 


open (DESCRIPTOR, "«/etc/passwd"); 
open (DESCRIPTOR, "cat /etc/passwd]|"); 
open (DESCRIPTOR, ppm. "cat /etc/passwd"); 


Astfel, putem inlántui execuția unor procese prin intermedi | mecan 
u a ismului pipe 


md exemplu în care datele scrise într-un descriptor sunt preluate de un şir de 
nzi externe poate fi următorul (foarte asemănător, de altfel, cu precedentul): 


my (ȘINPUT, $OUTPUT); 
my Sinfiles"/etc/passwd"; 


uris brad "<", "/etc/passwd") 
le "Nu se poate deschide /et 
open (OUTPUT, silent "Sort -u") POUR 
|| die "Nu se poate lansa sort: $1!An"; 


ndr pet SE anu $uid, $gid, $gecos, $home, $shell); 
ic o 0 DLE $uid, $gid, $gecos, $home, $shell) 
d tx Qe are drepturi de root.An" 
Eus eM LE este un utilizator privilegiat. in" 

Peces te. 

close(OUTPUT); 


Același rezultat se i i i 
poate obține prin duplicare i i i 
corespunzător ieşirii standard: ; j G ici p PE 


my (ȘINPUT, $OUTPUT); 
my Sinfile-z"/etc/passwd"; 


ins bow "«","/etc/passwd") 
ie "Nu pot deschide /etc/pass 
wd: ! 2 
open (OLDOUT, "2&STDOUT") n SAEPE 
[| die "Nu pot duplica STDOUT: $!Nn"; 
open (STDOUT,"|-","sort -u") ' 
|| die "Nu pot lansa comanda sort: $!\n"; 


my ($user name $passwd $ id * $gecos $home $she Seb 
i D E va, u r 
while (« NPUT») i e 
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(Susername, $passwd, $uid, $gid, $gecos, $home, $shell) 


= split(/:/): 
print "$username are drepturi de root.^n" 


if $uid z- 0; 
print "$username este un utilizator privilegiat. Mn" 


if $gid < 90; 


) 

close(INPUT); 
close(STDOUT); 
open(STDOUT, "»&OLDOUT"); 


Un alt exemplu, in care vom afişa linie cu linie conţinutul unui fişier, fiecare 
linie fiind precedată de numărul ei, este: 


while(<>) ( 
print "$. : $."; 
) 
Operatorul ,«»" poate fi utilizat şi fără a specifica un descriptor, în acest caz 


citirea efectuându-se de la intrarea standard. 


Se pot folosi, de asemenea, funcţiile uzuale seek (), tel1() şi £1ock(), similare 
celor din limbajul C. 


Pentru prelucrarea conținutului directoarelor există un set de funcţii diferite de 
cele destinate operării cu fişiere. Astfel, opendir(), closedir(), seekdir(), 
telldir() au corespondenți similari printre funcţiile pentru lucrul cu fişiere. 
Funcţia rewinddir() poate fi suplinită printr-un apel al lui seekdir(). 


Exemplu de citire a conţinutului unui director (simulează comanda 1s): 


my ($DIR, $dirname); 
die "Avem nevoie de cel putin un argument!Mn" 


unless (defined($dirname = $ARGV[O]) 
&& $dirname ne ""); 


opendir (DIR, $dirname) 
|| die "Nu putem deschide directorul $dirname: $!Wn*; 
my $file; 
my $raspuns - "y"; 
while (defined($raspuns) && $raspunss-/y|d/i) ( 


rewinddir (DIR); 
while {$file = readdir(DIR)) ( 


print "$fileWn"; 
) 


print "Mai afisam inca odata acestui director?"; 
$raspuns = «STDIN»; 


} 
closedir (DIR); 


Permisiunile unui fişier pot fi setate folosind funcția chmod, care primeşte aceiaşi 
parametri ca apelul de sistem similar din C. 
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Puts funcţii predefinite pentru lucrul cu fişiere şi directoare sunt mkdir () 
chaie (j, rename (), rmdir(), chown(), fileno(), ioctl(), lstat(), Linki). 
symlink() ŞI unlink(). Apelul lor în Perl este similar cu cel din limbajul C 


Pentru a testa existenja sau tipul unui figier, in limbajul Perl se pot folosi, d 
asemenea, construcții similare celor din bash. Câteva exemple: : idi 
print "Dati un nume de fisier: "; 
$nume - «STDIN»; 
chomp $nume; 
if ( -r $nume && -w $nume ) ( 

print "$nume poate fi citit/scris.in"; 


) 


Toate condiţiile de test de la bash (vezi capi ; 
utilizate si in Perl. (vezi capitolul anterior, secţiunea 3.4) pot fi 


. bé Pu s oferită este cea a expandării conţinutului unui director fu iata 
p E) sa ori de fişier. În Perl, acest lucru se realizează fie cu ajutorul operatorului 
ý d : 

„<> , fte prin intermediul funcției predefinite g1ob() şi poartă numele de globbin 

Gpagini = «*.html»; e 

Gpagini = glob("*.html"); 


p fi eta- aracter ul e istă 
Du ă cum se obser vă, am olosit m cara » p ntru a genera o listá cu 
. numele tuturor fiş el elor «T di d ec orul curent. 


Un alt exemplu, în care ştergem toate fişierele stocate în directorul /tmp: 
foreach («/tmp/*») ( 
unlink || warn "Eroare la stergerea S. PER 


H 
Semnalarea erorilor si avertismentelor 


Din i ă 
cele de mai sus se poate remarca faptul că apelarea unor funcţii precum 


P ] d ý ' 3 
pen() se realizează in conjunctie cu operatorii or sau ||, pentru a verifica dacă 
survin erori şi a indica natura lor. 


e In cazul unei erori fatale putem apela aie (), care opreşte forțat execuţia 
programului, afişând mesajul specificat ca argument. Codul de eroare 
poate fi capturat prin intermediul variabilei speciale $1. Dacă mesajul nu 
este terminat de caracterul „An”, atunci funcţia die() va afişa si xe l 
liniei de program care a cauzat eroarea. ad 


O funcţie înrudită este warn (), care nu va opri execuţia programului, ci 
3 , 


d T va afişa şi u ri it ument ons derá du-l mesa de 
oa I l imi ca arg nc [v i j 

; 5 
avertisment: 
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open(LOG, "»»httpd.log") || 
warn "Eroare la deschidere: $!"; 


1.4. Expresii regulate 


Pentru a înțelege funcționalitatea programului prezentat la începutul acestei 
secţiuni, mai trebuie să ne referim la una dintre cele mai interesante facilități oferite 
de limbajul Perl: expresiile regulate (pentru fundamentele teoretice ale expresiilor 
regulate, cititorul interesat. poate parcurge cartea lui T. Jucan, Limbaje formale şi 
automate, Editura Matrix Rom, Bucureşti, 1999). În fapt, există un număr larg de 
utilitare şi aplicaţii care încorporează expresiile regulate ca parte a funcționalităţii 
interne a respectivelor programe: comenzile UNIX/Linux de procesare a liniilor 
(grep, sea sau awk) sau chiar shell-urile din sistem. În afară de Perl, şi alte limbaje 
oferă suport direct pentru expresii regulate — putem da ca exemple Python ori Tel. 


O expresie regulată reprezintă un şablon (pattern) căruia, pe baza unor reguli 
precise, i se poate asocia un text. 


Pentru lucrul cu expresiile regulate, limbajul Perl pune la dispoziție mai mulţi 
operatori care, pe lângă rolul de delimitare, oferă un set de opțiuni pentru căutare 
şi/sau substituție în cadrul unui text. 


Variabila implicită în care se realizează diferite acţiuni implicând expresii 
regulate este $ , iar specificarea altei variabile se realizează prin intermediul 


operatorului „=—”. 


De notat faptul că, în primele exemple de utilizare pe care le vom da, se vor 
folosi drept expresii regulate simple şiruri de caractere. Pentru a manipula expresii 
regulate, ne vom sluji de o serie de operatori descrisi în continuare. 


Operatorul n// 


Acest operator se foloseşte pentru a căuta un şablon în cadrul unui text dat. 
Deoarece, de cele mai multe ori, nu există nici un pericol de confuzie, caracterul 
„m” care precedă expresia este opțional. Se returnează valoarea logică „adevărat” în 
cazul în care căutarea se încheie cu succes, „fals” în rest (putem aşadar să-l folosim 


în cadrul expresiilor logice). 


i atita timp cit se introduce ceva de la tastatura 
while (<STDIN>) ( 
print "Am gasit subsirul \"Victor\" in $." 
if m/Victor/: 
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Cáteva posibile optiuni ale acestui operator sunt: 


TEN ; m ; 
i- căutare case-insensitive (majusculele nu diferă de minuscule): 


while (<STDIN>) ( 
print "Am gasit tag-ul \"<b>\" , - 
if /«b»/i; <b>\" sau \"<B3\" in $ 7 


e s- tratează textul ca fiind stocat pe o singură linie; 


e m veas mai multe linii; astfel, începutul de sir (desemnat de simbolul 
* )si S ârşitul de şir (desemnat de „$”) se transformă în început, respecti 
sfârşit de linii. Poem 


ntruae pl 1C tru a b nia d ere fa dintre EI $1 m 
I entr xem Hi a ŞI, totodată pen su li ifi 

> n 39 „ $ 
vom considera următoarele două exemple: / ^ 


my Ștext = "acesta este un 
text pe mai multe 
linii."; 

$text =~ /(^.*a.*$)/s; 


# extinde sablonul de la inceputul pina la 
# sfirsitul textului datorita lui '/s' 
print "\"$1\"\n"; 


my $text = "acesta este un 
text pe mai multe 
linii."; 


| Es sablonul de la inceputul pina la 
sfirsitul liniei care se potri i 
apnee HE potriveste din text 
print "V"$1X"An*; 


e ==; ài i 
g — caută In şir toate secvențele care se potrivesc şablonului: 


my $sir = abracadabra' 
my $num a = 0; i 
while ($sir =~ /a/g) { 


$num a4*; 

) 

A "Am gasit de $num a ori caracterul Na NT syn 
va afisa "Am gasit de 5 ori caracterul 'a'." i 


e F á i á á 
m evaluează sablonul doar o singură dată. Folosirea lui in căutări 
esive în acelaşi şablon are ca efect creşterea vitezei de căutare. 
while (<STDIN>) ( 
print if /SARGV[0]/o; 
) 
Vom consider i i 
eo A e exemplu, puțin modificat, care primeşte două 
€ in linia de comandă si care le va interschi i 
a interschir e 
mc mba succesiv la fiecare 
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my $nargum - 0; 
while (<STDIN>) ( 
print if /S$ARGV[($nargume*) $ 2]/o; 
) 
Rulând aceste două exemple cu aceeaşi intrare standard şi acelaşi prim 


argument, vom obține aceeaşi ieşire, ceea ce demonstrează că şablonul din cadrul 


expresiei regulate este acelaşi încă de la intrarea în bucla while. 


e x — permite utilizarea de spaţii albe si comentarii în cadrul expresiei 
regulate, cu scopul de a face codul mai lizibil: 


while (<STDIN>) { 
print if /^e xi tinst tipareste daca linia incepe 


# cu 'ex tins' 


/SX; 


i 
În acest exemplu, spațiul dinaintea caracterului „i” care precedă un comentariu 


va fi ignorat, la fel ca şi spaţiul dintre se” şi ,x", dar nu şi spaţiul alb precedat de 
un caracter „\” dintre ,x" ŞI pt”, i 


c — atunci când este folosit împreună cu opțiunea /g, acest operator previne 
resetarea valorii poziției în text unde a avut loc ultima căutare încheiată cu 


succes. Valoarea acestei poziții este returnată de funcția pos (). 


Operatorul ?? 


Operatorul ?sablon? este echivalent cu /sablon/, cu mențiunea cá el nu va 
returna „adevărat” decât la prima căuiare reuşită dintre două apelări succesive ale 


operatorului reset (). 


Rulând următoarea secvenţă de la prompt-ul unui shell: 


(infoiasi)$ perl -e 'print "sablonin" x 20;' | 
perl -e 'my $i = 1; 
while (<STDIN>) { 
print "$i - $ " if ?sablon?; 


reset if ((44$i1) % 7 == 0); 
H Y 
se va obţine ieşirea: - 


7 - sablon 


Compararea s-a încheiat cu succes la prima intrare în buclă, atunci când 
variabila si avea valoarea 1, și mai apoi când numărul liniei era multiplu de 7. 
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Operatorul s/// 


Operatorul s/sablon text per i 
/ 
/ mite cáutarea $1 substitu 1a unui sablon cu un 


Un exemplu: 


while («STDIN») { 
s/autmat/Automat/i; 
print; 


} 


Va î i â i 
iue Lux) cuvântul autmat dat la intrarea standard cu Automat si va scrie toate 
ite la ieşirea standard indiferent dacă substitufia s-a efectuat sau nu 


Ca şi m//, operato ă opti 

, rul s/// suportă opțiunile /g, /i i 
RN. asd g, /i, /m, /o, /s Sl i 
semantici ca la m//, şi, in plus, opţiunea /e. Biss eu aceleasi 


Operatorul qz// 


A : 
edic d primeşte ca parametru un şir de caractere pe care îl 
pilează ca expresie regulată. Expresia regulată precompilată poate fi 


memorată într-o variabilă şi itá î i 
E $i refolositá în construcţia al ii 
poate fi utilizată direct: i iii E 


my $expr = qr/(autmat|automt)/i; 
# exemplu de folosire directa 
while («STDIN») { 
s/S$expr/Automat/; 
print; 


) 


my $exprzqr/(autmat|automt)/i; 


# exemplu de folosire i 
e in alte c ii 
A ER onstructii 


s/altcevaN $expri nimi 
print: pr nimic/Altceva\ Automat\ ceva/; 


} 


Am utili i » i 
utilizat construcția escape „+ ” pentru ca spaţiul să nu fie interpretat. Putem 


preceda cu backslash orice cara $ 
cter având semnificație aparte pentru a nu mal fi 


Operatorul qr// su á iuni 
ortă o i i i ii 
"m. p ptiunile /i, /m, /o, /s $i /x, cu aceleagi functii ca la 


D E m ` 
e remarcat faptul că operatorii m//, s/// si ?? vor folosi valoarea variabilei $ 


pentru căutarea sablonului, dacă `i sA 
acá n ; x 
Pun de , u este utilizat nici unul dintre operatorii =~ 
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te şi, dacă este cazul, a şirului substituitor se poate 


Delimitarea expresiei regula 
7”. Astfel, secvenţa de cod de mai jos este 


realiza cu alte caractere speciale decât ,, 
perfect valabilă: 


my $text = "123 /abc XYZ"; 
3 inlocuim "/abc" cu "ADC" 
print "$textWn" if $text =~ s!/abc!AbC!; 


Expresia se mai putea scrie şi st/abctabct sau s | /abc | AbC | Ori se /abceAbCa. 


Un alt exemplu, care va afişa continutul tuturor elementelor «pre» dintr-un 
document HTML (caracterul „/” nu mai putea fi folosit ca delimitator de expresie 


regulată): 
while (<>) 4 

print if m#<pre>#i 
) 

În acest exemplu, remarcăm si utilizarea operatorului ,,..", care se dovedeşte 
extrem de util aici pentru extragerea unui interval de linii fără a se reţine explicit 


. mi«/pre»fi; 


aceste informaţii. 


Secvente pentru identificarea unui caracter, Multiplicatori 


Cel mai simplu mod de a identifica un anumit caracter în cadrul unui text este de 
a căuta exact acel caracter. Scrierea unui caracter „a” într-o expresie regulată 
presupune existenţa aceluiaşi caracter în şirul căruia i se aplică. 


De multe ori însă, am dori să folosim diverse meta-caractere pentru a identifica 
un set de caractere. 


Meta-caracterele sunt acele caractere din codul ASCII care nu se identifică pe 
ele însele în cadrul unei expresii regulate sau chiar al unei secvenţe de cod-sursă 
(scrisă în C/C++, Perl etc.). În cadrul unei expresii regulate, meta-caracterele sunt 
folosite pentru alcătuirea unor construcţii cu rol de a identifica diferite secvenţe de 


caractere dintr-un text. 
Putem considera specificatorii de fişier UNIX/Linux prezentaţi în capitolul 3 
(vezi secţiunea 2.3) drept expresii regulate folosind un set restrâns de meta- 


caractere. 


Următoarele caractere ASCII sunt considerate meta-caractere în cadrul unei 


expresii regulate: 
e Caracterul „.” este utilizat în cadrul unei expresii regulate să identifice 
orice caracter, exceptând caracterul newline NT 
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e Construcția „„[...]” reprezintă o clasă de caractere. De exemplu, expresia 
regulată / (a-z]/ se poate asocia oricărui şir de caractere care conţine cel 
puțin o literă minusculă. Bineînţeles, se pot concepe construcții mai 
complexe, cum ar fi /(a-z] [ATX] [0-7]N-[^1-378]/, care va identifica 
orice text conținând o succesiune de caractere formată, în ordine, de o 
literă minusculă, una dintre majusculele „A”, „T” sau x", o cifră între 0 şi 
7, semnul minus ,-" şi oricare cifră diferită de 1, 2, 3, 7 sau 8. De 
exemplu, comparaftia dintre şirul %0bx7-0F şi expresia regulată de mai sus 
se va finaliza cu succes datorită subşirului 5x7-0. 


e  Meta-caracterul ,,^" are două roluri: 


e Folosit în cadrul unei secvențe de caractere, are rolul de negare. 
Astfel, ("2-51 va identifica oricare cifră aparţinând mulţimii (1, 6, 
7, 8, 9, 0), iar [^a-m] va identifica orice caracter, cu exceptia 
minusculelor de la „a” la „m”. 


e  Desemneazá începutul unei linii, fiind un caracter de poziţionare în 
rest. De exemplu, ^(2-5] va identifica orice şir care începe cu o 
cifră cuprinsă între 2 şi 5. 


Precedat de un ,,V", va desemna caracterul ,,^". 
e Simbolul „$” folosit într-o expresie regulată identifică sfârşitul unei linii. 


e Caracterele ,, (" şi „)” au rolul de a grupa atomi în cadrul expresiei regulate 
şi de a memora valoarea subşirurilor din text corespunzătoare acestor 
atomi, fără însă a modifica valoarea expresiei regulate (această construcție 
se mai numeşte și operator de memorare). Un caracter lipsit de semnificaţie 
sau un meta-caracter de poziționare (e.g. ,,^" sau „$”) se numeşte atom al 
unei expresii regulate. Putem grupa atomi pentru a forma fragmente ale 
unei expresii regulate mai complexe. 


my $text = "acesta 


pe 
mai multe 
linii"; 
while ($text =~ /^([a-k].*)$/gm) ( 
print "Linia \"$1\" incepe cu un caracter de la Var da 
AKNE NTE 


D3 
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Fie scriptul: 


my ($LOG, $i); 
open (LOG, "»»/tmp/word switch.log") || 
die "Nu pot deschide fisierul: $!\n"; 
while («STDIN») ( 
J $i++; 
s/^(\S+)\s+(\S+}/$2 $1/; 


print; a n" E LI ". 
print LOG "linia $i: s-a inversat \"$1\"” cu V $2X*3n^5 


) 
close (LOG); 


Acest program va prelua linii de text de la intrarea standard si va afişa la i 
standard inversánd primele două cuvinte între ele, scriind într-un fişier modificările 


efectuate, 


e Caracterul „|” va da posibilitatea de a alterna între două sau mai multe 
forme posibile ale unei secvenţe dintr-un text. 
while (<STDIN>) ( 
print if (/[0-9]|(A-2][a-z1/):; 
) 
Următorul script va putea identifica orice şir care conține un subşir e x 

dintr-o literă minusculă urmată de cel puţin o cifră, sau dintr-o cifră succedată e 
cel puţin o majusculă. Subşirul care se potriveşte şablonului va fi tipărit: 


while(«») ( TEN 
print "\"$1\" se potriveste sablonului'n 


i£ (/(fa-z]Nd*|Nd[A-2] $) /) : 


"si Itiplicatori ai unui 
e  Meta-caracterele ,,?", ,,*, +”, pt” şi ,)" au rolul de multipli 


atom. 


e Un atom al unei expresii regulate urmat de ,,?" poate identifica de zero sau 
maxim o singură dată un atom. 


e Simbolul „*” poate identifica zero, una sau mai multe apariții consecutive 
ale aceluiagi atom. 


ăi i á iti mului. 
e Un atom urmat de ,,«" poate să identifice măcar o apariţie a ato 


Un exemplu: 
while («STDIN») ( . e | 
print "Cel putin o aparitie a cuvintului \'web\ 
la inceputul linieiin" 
if (/^(web)*/); 
) 


i ă i ă ât "si 47; astfel; 
Multiplicatorul ,,()" are o sintaxă ceva mai complexă decât „*” şi „+; 


142 PROGRAMARE WEB ÍN BASH SI PERL 


LIMBAJUL PERL 143 


e  atom(m, n) va identifica într-o expresie cel puţin m atomi, dar nu mai 
multi de n; 


e  atomím, ) va identifica m sau mai mulți atomi; 
e  atom(,n) va identifica cel mult n atomi; 
e  atom(n) va identifica exact n atomi. 


Putem face aici observaţia că (1,) este echivalent cu „+”, (0,1) cu ,?", iar 


construcția (0,) este echivalentă cu E " Valorile lui Şi n sunt în intervalul 
, * 1m 


Dacă meta-caracterul ,,?" urmează unui multiplicator, acesta din urmă va avea l 


un caracter ponderat (minimal). 


l Limbajul Perl pune la dispoziție un set de construcții predefinite pentru 
identificarea unor clase de caractere, după cum se poate remarca din tabelul 
următor. 


| Construcție. |^ 
|. complementară ||. : 


(orice 
. | exceptând cifre) 


EXCOpanc Cre), 
ww (un caracter 
ne-alfanumeric) | 


| [^0-9] 


ER ni tati ER EE 


(un caracter 
 alfanumeric) | 


[0-9 a-zA-Z] 


i l 
| 


\s | | . x 
(un spaţiu alb) | [tirin MÉ ] | (orice exceptánd 


eR TUR 


i 


Expresia regulată / (. *Xà« (A-2] (3,7)) / poate identifica orice sir de caractere 
cu urmátoarea componență: începe cu orice caracter(e), continuă cu cel puţin o 
cifră şi se termină cu cel puţin trei majuscule, dar nu mai mult de şapte. Totuşi, un 
şir de forma abc123ABCDEFGHIJKL se va potrivi acestei expresii regulate, condiţiile 
impuse fiind satisfăcute, în variabila $1 (s-a folosit () — operatorul de memorare) 
fiind stocat şirul 123aBcpzrc. Dacă însă la sfârşitul acestei expresii mai adăugăm o 
constrângere (final de linie, de exemplu, sau alt caracter), multiplicatorul () va fi 
forțat să se oprească. 


Construcţia /(\d+[A-2}{3,7})\;/ va forța ca în componenţa şirului să nu 
existe mai mult de şapte majuscule, nici mai puţin de trei; şi, mai mult, să fie 
urmate de caracterul ,,; ". 


Toţi aceşti multiplicatori prezentaţi mai sus vor identifica atât de mulți atomi cât 
este posibil. Astfel, (A-z] (3,7) în prima variantă a exemplului prezentat după ce 
va găsi în text trei majuscule, va continua căutarea şi se va opri la şapte dacă este 
posibil. De asemenea, \d+ à identificat toate cele trei cifre din text, deşi o posibilă 
variantă a valorii lui $1 ar fi fost 23ABCDEFG. 


În cazul prezenţei în expresia regulată a doi (sau mai mulți) multiplicatori, cel 
mai din stânga va identifica mai multe caractere în detrimentul celorlalți aflați mai 
în dreapta. Considerăm o variantă puţin modificată a expresiei de mai sus şi anume 
pa x Na+ (A-21(3,7)) /. Forma textului pe care îl va identifica nu se schimbă, însă 
textul memorat în $1 diferă în situaţiile în care vor exista mai mult de două cifre. 
Folosind în continuare şirul abc123ABCDEFGHIJKL, valoarea stocată de $1 va fi! 
3ABCDEFG. | 


Există situaţii când un asemenea comportament al multiplicatorilor nu ne 
convine. Să considerăm expresia regulată / (a. *bc) / şi textul dd a ddd be dddd 
bc baa, O comparaţie între acest şir și / (a. *bc) / va avea ca rezultat memorarea în 
$1 a valorii a aaa bc dadd bc. Se observă că, deşi compararea s-ar fi putut opri 
după prima pereche bc, ea a continuat. În acest caz, compararea s-a făcut până la 
sfârşitul şirului de caractere, dar nefiind îndeplinite condițiile de identificare, s-a 
revenit la ultima succesiune de caractere „potrivită”. 

Schimbarea comportamentului multiplicatorilor din maximal (greedy) ín 
minimal (lazy, nongreedy) o poate realiza meta-caracterul „?”. În prezenţa unui 
multiplicator, ,,?" îşi modificá rolul din identificarea a zero sau unu caractere în cel 
de a schimba comportamentul acelui multiplicator. Astfel, aplicarea expresiei 
regulate /(a.*?bc)/ şirului a dág bc dddd bc Ya avea drept efect memorarea în 


$1a valorii a ddd bc. 


Situația se va schimba si în cazul şirului abc123ABCDEFGHIJKL. Să analizăm 
comportamentele minimal şi maximal ale multiplicatorului „()” din expresiile 
regulate: 


1. /(Xd4[A-Z2] (G, 7) ) ([E-21 407 
2. /(Nà* [A-Z2) (3, 7) 2) ([E-2]+)/ 


Expresia trebuie să găsească în text un subşir precedat de cifre, urmate de cel 
puţin trei şi cel mult şapte majuscule şi cel puţin o majusculă dintre „E” şi ,Z". In 
primul caz, în $1 va fi memorat şirul 123ABCDEFG, ,O" prezentánd un 
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comportament maximal, iar în variabila $2 se va stoca HIJKL, deci s-au căutat toate 
cele şapte majuscule. În al doilea caz, $1 va avea valoarea 123ABCD, iar $2 va 
contine EFGHIJKL. Construcţia [A-2] (3,7)? a găsit majusculele, însă, forțată de 
prezența lui „>” si a multiplicatorului cu comportament maximal „+” aplicat 


» 


secvenfei (E-Z], s-a oprit înainte de primul caracter care poate fi identificat şi de 
secvență, 


Un alt exemplu de restrângere a potrivirilor de şablon este următorul: 
/teh.*e/ 


Dorim să putem extrage cuvinte care încep cu „ten” şi se termină cu litera „e”. 
Această expresie funcționează pentru texte precum: 


tehnologie 
tehnocratie 
tehuie 


Potrivirea va fi satisfăcută şi în următorul caz, obținând însă nu doar un cuvânt 
(şablonul ales se va potrivi cu „tehnologie este bine”): 


Despre tehnologie este bine sa discutam chiar acum. 


O soluţie este să utilizăm o expresie precum: 
/teh[^e] *./ 


Alti identificatori de caractere 


Limbajul Perl mai pune la dispozitie, aláturi de construcțiile predefinite pentru 
identificarea unor clase de caractere, şi construcții conforme cu standardul POSIX, 
de forma [:clasa_de_caractere: ], utilizate şi de funcțiile PHP. 


Clasele de caractere (care pot fi utilizate ca mai sus) sunt: alpha, alnum, ascii, 
cntrl, digit, graph, lower, print, punct, Space, upper, word si xdigit 
Caracterele incluse în aceste clase de caractere sunt cele pentru care funcțiile C cu 
numele isclasa, de caractere() returnează „adevărat”, 


Astfel, [[:alnum:]] este echivalentă cu [0-9a-zA-Z], [[:word:]] este 
echivalentă cu [0-9a-za-z ], ((:digit:]] cu [0-9] etc. 


De asemenea, limbajul Perl defineşte construcții cu lungime nulă (zero-width 
assertions) care identifică doar contexte, nu caractere, în următorul mod: 


e vb identifică limitele unui cuvânt; 


e \B identifică orice alt context decât limitele unui cuvânt (interiorul unui 
cuvânt); 


e NA desemnează începutul unui şir; 
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o Az identifică sfârşitul unui şir sau înaintea caracterului newline de la finalul 
sirului; 


e iz identifică sfârşitul unui şir; 


e  +G va identifica locul unde are loc ultima potrivire a şablonului în text, în 
cazul folosirii opțiunii /g a operatorilor m// sau s///. 


1 1 t "oo" "€ n dar nu 
De exemplu "/text\b/" poate identifica " text", "text", "context", 


$i "textul". 


Variabile speciale si expresii regulate 


Dupá cum se putea observa din exemplele de mai sus, la Sari În 
regulate se setează variabilele speciale $1, $2 etc., atunci cánd - Ws Sd 
referințe anterioare (back-references). Asemenea referinţe sun pus 
specificarea de sub-expresii care au satisfăcut un șablon de mai mu 2 bud 2 
pentru a avea acces la párti ale sirului sau chiar la intregul sir Pu a 
anumită expresie regulată se folosesc parantezele rotunde 5» O^", şiruri i e eds d 
care reprezintă rezultatul fiind stocate în variabilele speciale numerota e. d s 
generală, putem specifica referinfele anterioare prin construcții P " Ld 
şi aşa mai departe, până la ,,V9". In Perl, putem folosi mai lejer variabilele sp 


$1, $2, al căror număr nu este limitat. 


Următorul program va afişa, pentru o adresă e-mail, numele de cont şi sa 
simbolică a maşinii (am folosit apostrofuri în loc de ghilimele, pentru ca simbo 
„e” să nu fie interpretat drept prefix al unui tablou): 


$_ = 'Contactati-ne la «cgiGinfoiasi.ro»'; 
if (/«(.*)N8(.*)2/) ( i 
print “Numele de cont: $1Mn"; 


4 desemneaza prima sub-expresie (.*) 
print "Adresa simbolica: $2\n"; . 
$ desemneaza a doua sub-expresie |. ) 


De asemenea, programatorii Perl mai au la dispoziţie următoarele variabile 
speciale asociate expresiilor regulate: 


e  $« va confine şirul care corespunde ultimei paranteze evaluate din expresia 
regulată; 


e sa va desemna întregul şir corespunzând expresiei regulate; 


e $^ va confine toate caracterele care precedă şirului ce se potriveşte 
expresiei regulate; 
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e $' vacontine toate caracterele care urmează șirului corespunzător expresiei 


regulate. 
Un exemplu: 
$sir = "Nici un limbaj nu-i ca Perl"; 


$sir =~ /l[^WXs]*Ns/; 
print "[$'] [$&] [($']in"; 
Se vor afiga urmátoarele: 


[Nici nu ] [limbaj } [nu-i ca Perl] 


Utilizarea variabilelor in expresiile regulate 


Operatorii delimitatori care încadrează expresiile regulate au un comportament 
asemănător ghilimelelor (double quote). Astfel, ca şi în alte cazuri, variabilele care 
intră în componența unui şablon sunt evaluate la fiecare evaluare a acestuia în 
vederea căutării în text. 


Excepţie fac expresiile regulate delimitate de ghilimele simple (single quotes), 
care inhibă evaluarea, sau în cazul folosirii opțiunii /o, care ne asigură de faptul cá 
acea expresie regulată este compilată doar o singură dată. 


Foarte util în unele cazuri ale utilizării variabilelor în cadrul expresiei regulate se 
dovedeşte operatorul qx//. Un exemplu de folosire a lui qr// în acest caz este 
evaluarea unor părți ale unei expresii regulate numai o singură dată, artificiu care 
poate mări viteza de procesare a unor texte folosind expresii regulate complexe 
având părți care rămân neschimbate mai mult timp: 


my ($text, de inlocuit, $text, inlocuit, $expresie); 
print "Ce text vom inlocui in text? "; 
chomp($text, inlocuit = <>); 

print "Cu ce text vom inlocui V"$text inlocuitN"? "; 
chomp($text,de inlocuit = <>); 


S$expresie = qr/$text inlocuit/; 
while («») ( 
s/Sexpresie/S$text de inlocuit/i; 


print; : 
) 


Functii predefinite folosind expresii regulate 
În conjuncfie cu expresiile regulate se pot utiliza următoarele funcţii predefinite: 


e tr/// realizează translatarea caracter cu caracter a unui text şi are forma: 
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tr/caractere de cáutare/caractere de Ínlocuire/ 


Această funcție mai poartă numele si de funcție de transliterare. 


Şirul de intrare este parcurs caracter cu caracter, înlocuindu-se fiecare apariţie a 
unui caracter de căutare cu corespondentul lui din mulţimea caracterelor de 


înlocuire. 
Se pot folosi opţiunile: 


c — va realiza translatarea utilizând complementara mulţimii de 
caractere de căutare; 


9 


à — va şterge toate caracterele din mulțimea caracterelor de căutare care 
nu au corespondent în setul caracterelor de înlocuire; 


s — va reduce secvențele de caractere care au fost înlocuite folosindu-se 
acelaşi caracter la o apariție unică a caracterului respectiv. 


Câteva exemple: 


4 majusculele devin minuscule 


tr/A-2/a-z/ 
# http: devine ftp: 


tr/http:/ftp:/ 
+ caracterele diferite de alfanumerice devin spatii 


tr/A-Za-z0-9/ /cs 
e  split() imparte un şir de caractere in funcție de o expresie regulată şi 
returnează un tablou conținând subşirurile care nu satisfac acea expresie 


regulată. După cum vom vedea în secţiunea 2.1, funcția va fi foarte folositoare 
pentru realizarea de scripturi CGI, 


Pentru a afişa numele de cont şi directorul home al utilizatorilor din sistem, vom 
putea scrie următorul script (folosim fişierul /etc/passwd): 


open (FIS, "/etc/passwd") || 
die "Eroare la deschiderea fisieruluiWn"; 


while (<FIS>) ( 


$linie = $.; 
chomp ($1inie): 
@date = split(':', $linie); 


(Scont, $dir) = G8datel[O, 61: 
print "Directorul home al lui $cont este $dirin'; 


) 
close (FIS); 


Elementele returnate de spiit() se pot memora si în variabile scalare separate. 
Astfel, pentru a stoca data sistem vom putea scrie următoarele linii de cod: 


sdata_sistem = localtime(time); 
($ziua, Sluna, $num, $timp, San) = split (/As+/, $data sistem); 
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e join() este complementară funcţiei sus-amintite, în sensul cá reunește 
mai multe şiruri de caractere în unul singur, delimitate de un scalar, 


Un exemplu: 
$perl = "Perl*; 
$cpp = "C++"; 
$java = "Java"; 
$tcl = "Tcl"; 
print "Limbaje: ", 
join(" ", $perl, $cpp, $java, $tcl), "in"; 
print “Limbaje: ", 
join(", ", $perl, $cpp, $java, $tcl), "in"; 


O variantă alternativă este cea care recurge la utilizarea operatorului de 
concatenare ,„.”, fără posibilitatea de a specifica elementul de legătură. 


e  eval() poate fi folosită pentru evaluarea/execuţia unei expresii Perl. 


„Contextul execuţiei expresiei Perl este contextul curent al programului. 
Putem considera expresia ca o subrutină sau un bloc de instrucțiuni în care 
toate variabilele locale au timpul de viață egal cu cel al subrutinei ori 
blocului. Dacă nu se specifică o expresie ca argument al funcției, se va 
utiliza în mod firesc variabila specială $ . Valoarea returnată de eva1() 


reprezintă valoarea ultimei expresii evaluate, fiind permisă şi folosirea 
operatorului return. 


Posibilele erori vor cauza returnarea unei valori nedefinite si setarea variabilei 
$6 cu un mesaj de eroare. 


Astfel, eva1 () poate fi de ajutor în verificarea corectitudinii unui şablon: 


sub este_sablonul_valid { 
my $sablon = shift; 


return eval ( *" =~ /$sablon/; 1 ) || 0; 
) 


Putem preintámpina afigarea unui mesaj de eroare la apariţia excepţiei de 
împărţire la zero a unui număr astfel: 


print "Impartire la zero" 
unless eval ( $rezultat = $nr1 / $nr2 ); 


1.5. Modulele Perl 
Conceptul de ,,pachet" 


Modulele (pachetele) Perl reprezintà unități de cod precompilat, încapsulând 
diferite funcționalități oferite programatorilor, 


4 
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Un pachet Perl poate fi considerat drept implementarea unei clase pe vs 
putem instanfia în cadrul unui script. Subrutinele incluse într-un pachet pot juca, de 
asemenea, rolul de metode, existând posibilitatea definirii de constructori şi 
destructori. Mai mult, se oferă suport pentru derivarea unei metode aparținând unui 
pachet, astfel încât pachetele Perl pot fi ierarhizate. Mai multe pachete pot fi 


grupate în biblioteci. 


Vom referi variabilele din alte pachete prefixând identificatorul variabilei 
respective cu numele pachetului urmat de „::”, după cum se poate observa din 
următorul exemplu: 
$intrare = $main::STDIN; 

La fel, pentru metode: 
$imagine = new GD::Image(174, 333); 

Dacá nu este specificat numele pachetului, se considerá implicit pachetul main. 
Astfel, construcția $: :var este echivalentă cu $main: :var. 


Dacă dorim să accesăm metode sau date-membru definite într-un pachet derivat 
din altul vom specifica numele ambelor pachete: 


$Pachet::Subpachet::variabila 


Conceptul de ,,modul" 


Un modul reprezintă un pachet public definit într-un fişier .pm cu scopul de a fi 
reutilizat ulterior. Modulele Perl vor fi incluse în program, spre a fi folosite, prin 
construcția: 
use Modul; 

Aceasta este echivalentă cu: 

BEGIN ( require "Modul.pm"; import Modul; ) 


La fel, use Modul (); este echivalent cu require Modul;, dar se recomandă 
utilizarea lui use în favoarea unui require. i 


Pentru mai multe detalii, cititorul poate consulta paginile de manual pentru 
perlmod Şi perlxs. 


Sunt puse la dispoziţie mai multe module standard (disponibile în orice 
distribuţie Perl actuală), dintre care se pot menţiona: 


e Carp (pentru controlul erorilor şi avertismentelor); 
* Config (pentru acces la opţiunile de configurare); 


e CGI (pentru generarea facilă de scripturi CGI); 
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e Env (pentru accesarea variabilelor de mediu); e comunicarea între procese, în rețea şi controlul dispozitivelor (e.g. 


: f - modemuri); 
* ExtUtils::Embed (pentru includerea de cod Perl în programele C); 


Ux ; : e tipuri de date si conversii; 
e File::Find (pentru traversarea recursivă a unui arbore de directoare); 


: t i NM ; e interfete cu bazele de date; 
e File::Handle (pentru manipularea fişierelor folosind descriptori de fişier); 


e interfeţe cu utilizatorul; 
+ File::Path (pentru operații cu directoare); 
e interfeţe cu alte limbaje de programare; 
e Math: :Complex (pentru prelucrarea numerelor complexe); 
2 e procesarea figierelor si sistemelor de fisiere; 
* POSIX (pentru asigurarea interfeţei cu standardul POSIX IEEE 1003.1); 
e procesarea caracterelor; 
e Search: :Dict (pentru căutarea unei chei într-un fişier dicționar); "PC" " 
e procesarea fişierelor de configuraţie şi a parametrilor în linia de comandă; 
e Socket (pentru realizarea de operațiuni cu socket-uri); : : 
e suport pentru diverse limbi şi alfabete (internafionalizare); 
e Time::Local (pentru acces la timpul local). 
e autentificare, securitate şi criptare; 
Pentru a găsi toate modulele instalate în sistem (inclusiv cele care nu au res i ză 
documentafii sau au fost instalate în afara distribuţiei standard), putem folosi e suport pentru poşta electronică şi grupurile de ştiri; 


următoarea linie de comenzi: 
e suport pentru Web (HTML, HTTP, CGI, XML etc.); 


find "perl -e 'print "GINC"'" -name "*.pm" -print 
În mod normal, fiecare modul posedă propria lui documentaţie, accesibilă prin e utilitare pentru daemoni; 


intermediul comenzii man din UNIX. Se poate utiliza şi comanda per1doc. . : : i 
e suport pentru arhivarea şi compresia datelor; 


De reţinut faptul că anumite module pot fi scrise în alte limbaje, în speță C : " fice: 
(cazul modulelor Socket sau POSIX). e procesarea informațiilor grafice; 


e controlul fluxului (excepții, erori etc.); 
CPAN 


: e procesarea fluxurilor de date şi a fişierelor; 

Succesul limbajului Perl rezidă, în principal, in posibilitatea de a extinde 
limbajul cu noi funcționalități oferite de module. În afara modulelor din ə altele. 
distribuțiile Perl standard, există o colecţie globală a tuturor materialelor publice 
referitoare la Perl, colecție referită sub denumirea CPAN (Comprehensive Perl 
Archive Network). CPAN oferă un număr impresionant de module grupate pe http://www.perl.com/perl/. 
următoarele categorii: 


Pentru un listing al tuturor locatiilor Internet referitoare la CPAN, consultaţi 


Cele mai reprezentative şi mai utile module CPAN sunt disponibile pe CD-ul 
e extensii de limbaj si unelte de documentare; care însoţeşte volumul de față. 


+ suport pentru dezvoltare de programe/module; 


e interfeţe (la nivel scăzut sau ridicat) cu sistemul de operare; 
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Instalarea unui modul 


În unele cazuri va trebui să luăm un modul de la CPAN pentru a-l instala şi 
folosi ulterior în cadrul scripturilor noastre. Pentru a fi instalat pe un sistem 
UNIX/Linux, un modul Perl se regăseşte fie ca fişier tar arhivat cu gzip (deci are 
extensia .tar.gz sau .tgz), fie ca fişier .pm (deja dezarhivat). 


Orice modul Perl necesită pentru instalare existența interpretorului Perl în 
sistem. 


După dezarhivare (cu tar -xzf numearhiva.tgz), în directorul în care a fost 
stocat modulul dorit a fi instalat se dau următoarele comenzi (pentru a se putea 
executa ultima linie, utilizatorul trebuie să aibă drepturi de root): 


perl Makefile.PL 
make 

make test 

make install 


Dacă se doreşte instalarea unui modul într-o altă locație (de exemplu, în 
directorul privat al unui utilizator), atunci se substituie prima linie cu: 
perl Makefile.PL INSTALLDIRS=site INSTALLSITELIB-/home/user/director 
Pentru a folosi acel modul în programele noastre, va trebui să prefatám fiecare 
script cu liniile de mai jos: 


use lib '/home/user/director' 
use Modul; 


în care /home/user/director este directorul unde a fost instalat modulul denumit 
Modul. 


În mod uzual, fiecare modul este însoțit şi de documentaţia necesară exploatării 
lui. Pentru a avea acces la ea, se foloseşte utilitarul perldoc: 


(infoiasi)$ perldoc XML: :Parser 
Pentru convertirea documentației în format text sau HTML se pot utiliza 
comenzile pos2text şi, respectiv, pod2html1, ca în exemplul următor: 


(infoiasi)$ pod2text Parser.pm »Parser.txt 
(infoiasi)$ pod2html Parser.pm »Parser.html 
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2. Scripturi CGI in Perl 


2.1. Primele scripturi CGI 


Dupá cum am vázut in capitolul 2, inainte de a trimite spre navigator pagini Web 
sau alte tipuri de informafii (multimedia, arhive, documente XML etc.), orice script 
CGI trebuie să afişeze la ieșirea standard câmpul HTTP Content-type. 


Desigur, nici scripturile CGI concepute în Perl nu fac excepție. Astfel, cel mai 
simplu script este următorul: 


+! /usr/bin/peri 


+ trimitem antetul HTTP 
print "Content-type: text/htmlinin"; 


+ trimitem codul HTML, 
+ (folosim facilitatea "here") 
print <<HTML; 
«html» 
«head» 
«title»Salut!«/title» 
</heaâ> 
«body bgcolor="white" text="blue"> 
«p»Salut!«/p» 
«/body» 
</html> 
HTML 


Ca orice alt script CGI conceput în alt limbaj, un script CGI scris în Perl va avea 
acces la variabilele de mediu furnizate de serverul Web. Acest lucru se poate 


rezolva prin accesarea tabloului asociativ ENV: 


#!/usr/bin/perl 


# trimitem antetul HTTP 
print "Content-type: text/plain\n\n"; 


print "Variabilele de mediu đisponibile:\n"; 
foreach $variabila (sort keys *ENV) ( 


print "$variabila: SENV($variabila)in"; 
) 


Preluarea datelor prin metoda GET 


Dupá cum stim, pentru a accesa datele transmise prin intermediul metodei GET, 
va trebui să le preluám ca URI codificat din variabila de mediu QUERY_STRING. 
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Ne propunem să scriem un script Perl simplu care preia dintr-un formular 
valorile a două numere întregi şi returnează clientului Web maximul dintre cele 
numere. Vom scrie aşadar următorul formular XHTML: 

«form actions"max.pl.cgi" 
method="GET"> 

«p»Introduceti două numere: 


«input type="text" name-"nrl" size="3* /> 
«input type="text" name-"nr2" sizez"'3" /» 
«br /» 


«input type="submit" value="Află maximul" /» 
«/foxm» 


De exemplu, introducând numerele 3 şi 33 şi acționând butonul „Află maximul”, 
vom primi o pagină Web care va afişa textul „Maximul dintre 3 şi 33 este: 33”. 


Scriptul Perl va prelua din variabila de mediu QUERY_STRING şirul de interogare 
codificat: 


$interogare = $ENV('QUERY, STRING'); 


Va trebui sá divizám acest sir de caractere in perechi (nume de cámp, valoare) si 
apoi să preluăm valorile fiecărui câmp al formularului. Acest lucru se realizează in 
maniera următoare, implementând funcția analiza parametri (), care va returna 
un tablou asociativ având drept chei numele câmpurilor şi ca valori — valorile 
acestor câmpuri: 


sub analiza, parametri ( 
4 variabile locale 


local (şinterogare) = 6; 
+ preluam perechi 'camp-valoare' 
local (Eperechi) = split('&', $interogare); 


local ($parametru, $valoare, parametri); 


foreach (perechi) ( 
+ preluam valoarea si numele de camp 


($parametru, $valoare) = split('='); 
# decodificam valorile 
$parametru - &unescape($parametru); 


Svalue = &unescape($value): 
+ memoram in tabloul 'parametri' 
if (Sparametri($parametru)) | 


Sparametri ($parametru) .= "$;$valoare"; 
) else | 
$parametri ($parametru) = $valoare; 


1 
} 
return $parametri; 


Mai rămâne să decodificám sirurile de caractere („+° va deveni spațiu, iar ,,$" 
urmat de două cifre în baza 16 va fi substituit de caracterul ASCII corespunzător): 
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sub unescape | 


local ($sir) = 8.;. 
8 "e" devine spatiu 
$sir =~ tr/*/ /i 


4 $HH devine caracter ASCII EN 
$sir =~ 3/% ((0-9A-Fa-f£] (2)) /pack( c", hex($1))/ge; 
return $sir; 


) 
Scriptul complet max.pi.cgi este urmátorul: 


s1/usr/bin/perl -w 


& calculeaza maximul a doua numere 
& (se utilizeaza metoda GET) 

print ««HTML; 

Content-type: text/html 


zhtml»«head»«title»Maxim«/title»«/head» 
«body?» 

«h2»Maximul a doua numere< /h2> 

«hr» 

HTML 


luam sirul de interogare 

i qun variabile de mediu QUERY_STRING 
$interogare = $ENV{ ' QUERY_STRING ) |! 

die "Sir de interogare vidi\a"; l 
parametri = &analiza parametri ($interogare); 
+ preluam valorile parametrilor 
$nrl = $parametri('nri'); 
$nr2 = $parametri('nr2'); 
if ($nrl > $nr2) ( 

$max = $nrl; 
) 
else { 

$max = $nr2; 


) 


print "«p»Maximul dintre $nrl si $nr2 este: $max«/p» Mn"; 
print ««HTML; 

«hr» 

«/body» 

«/html» 

HTML 


i 


# am terminat 
exit; 


sub analiza_parametri { 
# variabile locale 
local ($interogare) = a_; | 
i preluam perechi 'camp-valoare 
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local (eperechi) = split('&', Șinterogare) ; 
local ($parametru, $valoare, parametri) ; 


foreach (perechi) ( 
+ preluam valoarea si numele de camp 
($parametru, $valoare) = split('=:*); 
i decodificam valorile 
$parametru = &unescape (Sparametru) ; 
$value = &unescape ($value); 
i memoram in tabloul 'parametri' 
if ($parametri($parametru)) ( 


$parametri($parametru) .= "$;$valoare"; 
) else ( T 
$parametri($parametru) - $valoare; 


) 
) 
return $parametri; 


) 


* functie de decodificare 
sub unescape ( 

local($sir) = e ; 

+ "+" devine spatiu 

Șsir =~ tr/+/ /; 

+ $HH devine caracter ASCII 


$sir =~ s/&([0-9A-Fa-£](2)) "es 
a /pack("c", hex($1))/ge; 


Preluarea datelor prin metoda POST 


Trimifánd valorile câmpurilor formularului prin metoda POST, nu vom mai 
consulta variabila de mediu QUERY_STRING, ci vom citi de la inane: standard 
CONTENT. LENGTH octeti care, desigur, vor trebui decodificati. Pentru decodificare 
vom folosi rutinele prezentate mai sus, codul scriptului . fiind  (rutinele 
analiza, parametri () şi unescape () au fost omise): 


$!/usr/bin/perl -w 


* calculeaza maximul à doua numere 
# (se utilizeaza metoda POST) 
print ««HTML; 

Content-type: text/html 


«html»«head»«title»Maxim«/title»«/head» 
«body» 

<h2>Maximul a doua numere«/h2» 

«hr» 

HTML 


E 


+ preluam sirul de interogare de la 
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read (STDIN, $interogare, $ENV('CONTENT LENGTH']); 


die "Sir de interogare vid! Mn" unless $interogare; 
%parametri = sanaliza_parametri (Sinterogare) ; 

4 preluam valorile parametrilor 

nrl = $parametri('nrli'); 

$nr2 = $parametrií'nr2'): 


if ($nrl > $nr2) ( 
$max - $nri; 

) 

else ( 
$max = $nr2; 


) 


print "«p»Maximul dintre $nrl si $nr2 este: $max«/p»Mn"; 


print ««HTML; 
«hr» 

«/body» 
«/html» 

HTML 


Li 


+ am terminat 
exit; 

Ín mod normal, un script CGI trebuie sá poatá fi utilizat indiferent de metoda 
HTTP folositá. Un exemplu de astfel de script este prezentat in cadrul sectiunii 2.3 
a acestui capitol. 


2.2. Modulul CGI 


Pentru realizarea comodă de scripturi CGI în Perl, este pus la dispoziție modulul 
CGI, utilizat în special pentru generarea şi procesarea formularelor şi a 
cookie-urilor. Acest modul oferă un obiect generic cG1 pentru acces la variabile de 
mediu, pentru procesarea lor şi stocarea rezultatelor. Modulul CGI poate fi utilizat 
pentru preluarea datelor transmise atât prin metoda GET, cât si prin metoda POST, 
fără a concepe programe separate pentru fiecare metodă în parte. Un alt avantaj 
este dat de posibilitatea depanării scripturilor CGI rulându-le direct de la prompt-ul 
Linux, în loc de a fi invocat prin intermediul serverului Web. 


Modalităţi de utilizare 


Putem folosi modulul CGI prin intermediul a două paradigme de programare: 
funcțională (procedurală) şi obiectuală. 


Cele două paradigme nu diferă decât prin modul de acces la functionalitátile 
escdalelnis via funetii în nrimnl ceay si via metode în al doilea. 
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Următorul exemplu foloseşte paradigma procedurală: 
4! /usr/bin/perl 


+ utilizam modului CGI in forma standard 
use CGI qw/:standard/; 


# trimitem antetul HTTP 
print header); 
+ afisam antetul paginii Web 
print start_html(-title => "Un salut"); 
+ afisam diferite elemente HTML 
print hl('Salut!!), 
p('Un paragraf...'); 
+ afisam finalul de document 
print end htm1(0); 


Acelasi script, din perspectiva orientatá-obiect, este: 
$!/usr/bin/perl 


# utilizam modulul CGI 
use CGI; 


i instantiem obiectul CGI 

$c = new CGI; 

# trimitem antetul HTTP 

print Şc->header(); 

+ afisam antetul paginii Web 

print $c-»start html(-title => "Un salut"); 

3$ afisam diferite elemente HTML 

print $c-»hi('Salut!'), 
$c-»p('Un paragraf...'); 

# afisam finalul de document 

print $c-»end html():; 


Initializarea obiectului CGI 


Metoda new() poate instantia obiectul CGI in diverse moduri, oferind 
posibilitatea citirii parametrilor de intrare via un descriptor de fişier prin 
construcția: 


$c = new CGI (HANDLER); 


Vor fi citite perechi nume=valoare delimitate de caractere new line sau un şir de 
interogare codificat (vezi capitolul 2). 


O altă metodă de a iniţializa obiectul CGI este prin intermediul tablourilor 
asociative care vor contine nume de câmpuri şi valori: 
$c = new CGI(('culoare' => 'verde', 
'nume' => 'Sabin', 
'prieteni' => [qw/Victor Stefan/])); 
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O altă manieră este următoarea (pasám ca argument un şir de interogare URI 


codificat): 
$c = new CGI(l'culoaresverde&nume-Sabin'); 


Preluarea parametrilor 


Cele mai uzuale utilizări ale modulului CGI sunt cele în care sunt implicate 


formularele Web ale căror valori de câmpuri trebuie prelucrate comod. 


Pentru a prelua toți parametrii pasati scriptului, ne putem sluji de un tablou, 
apelând metoda param (): 
Qparametri = $c-»param; 
Dacă dorim să preluăm valoarea unui anumit parametru vom folosi una dintre 


construcțiile: 


$c-»param('prieteni'); 


Gprieteni 
$c-»param('culoare']; 


$culoare 
Ín prima variantá, rezultatul este , preluat de un tablou, deoarece câmpul 
prieteni poate contine elemente multiple ale unui marcator «select». 


Varianta procedurală este: 


$o culoaxre = param('culoare'); 


Atunci cánd dorim sá asignám o nouá valoare unui parametru, vom scrie, de 
exemplu: 
$c-»param(-name-»'culoare', -value-»'rosu'); 


Mai pot fi folosite metodele: 


e  append() adaugă un nou parametru; 


delete() şterge un parametru; 
ə delete al1() elimină toti parametrii; 


ə  save() salvează starea unui formular (şirul de interogare), utilizând un 
descriptor de fişier; 


e url() furnizează URL-ul scriptului; 


e dumpi) afişează într-o formă structurată toate perechile (nume, valoare) ale 
unui şir de interogare. 
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Procesarea antetului HTTP 


Asa cum am vázut, inainte de a genera cod-sursá HTML, un script CGI trebuie 
să trimită obligatoriu antetul HTTP. Acest lucru se realizează prin intermediul 
metodei sau funcţiei header (): 


# trimite Content-type: image/gif 
print $c-»header('image/gif'); 


Metoda header () poate fi folosită şi pentru a seta alte câmpuri HTTP: 
print $c->header | 

+ Content-type 

- type => 'image/png', 

4 codul de stare HTTP 

-status => '402 Payment Required', 

# timpul de expirare 

-expires => '43d', 

4 parametru-utilizator 

-Cost => '$ 0.01'); 


Pentru atributul -expires pot fi specificate valori de timp precum now (acum), 
*30s (după 30 de secunde), +15m (după 15 minute), «5n (după 5 ore) sau «3M (dupá 
3 luni). Sunt acceptate si valori negative. 


Pot fi, de asemenea, trimise câmpuri definite de utilizatori, în exemplul de mai 
sus Cost. Acest lucru permite folosirea unor protocoale noi, fără a trebui să 


actualizăm modulul CGI (e.g. putem expedia câmpuri specifice protocolului 
SOAP). 


Mai mult, se poate folosi metoda reairect () pentru a redirectiona navigatorul 
către altă locaţie: 
+ redirectare in functie de limba 
if ($1imba eq 'ro') 
print $c-»redirect('/ro/index.html'); 
else 
print $c-»redirect('/en/index.html'); 


De asemenea, se pot invoca diverse metode care sá ofere valorile variabilelor de 
mediu specifice HTTP. Astfel, putem apela metode precum: 


e auth, type () furnizează tipul autentificárii (e.g. Basic); 
e query string returnează şirul de interogare CGI; 


* remote addr() furnizează adresa IP a calculatorului-client care a invocat 
scriptul; 


e remote host() — ca mai sus, dar se returnează numele simbolic al 
calculatorului-client; 
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e. request method() furnizează metoda HTTP utilizată (GET, POST sau 
HEAD); 


e server name() returnează numele serverului Web pe care rulează 
scriptul; 


e server port() returnează portul de acces folosit în comunicaţia dintre 
server şi client; 


e user agent() identifică numele şi versiunea agentului-utilizator 
(navigatorului, de cele mai multe ori) folosit pe calculatorul-client. 


Iată un exemplu în care redirectionám automat browserul, în funcție de sistemul 
de operare al clientului: 
4! /usr/bin/peri 
use CGI; 


$url = 'http://www.infoiasi.ro'; 
for (CGI::user agent()) ( 
+ simularea unui 'switch' 


$pag = /Linux/ && 'linux.html' 
|| /HP-UX/ && 'hpux.html' 
|| /Sunos/ && 'sunos.html' 
|| /Mac/ && 'macos.html' 
|| /Win|MSIE/ && 'win.html' 
|| 7.54 && 'generic.html'; 


) 
print "Location: $url/$pagWnWMn"; 


În loc de user. agent () puteam folosi $ENV (HTTP. USER. AGENT), desigur. 


Crearea de marcatori HTML 


Putem folosi urmátoarele metode pentru generarea antetului si finalului unui 
document HTML: 


e start html() construieşte antetul unei pagini Web: 


print $c-»start html( : 
-title z» 'Facultatea de Informatica', 


-author => 'busaco8infoiasi.ro', 

-meta => {'keywords' => 'CS, Romania, Iasi'), 
-style => ('src' => 'styles/fcs.css'], 
-bgcolor => 'white', 

-text => 'navy'}; 


Pot fi utilizate si atributele: 


e -script defineşte funcții JavaScript încorporate în antetul unui 
document HTML; 


162 PROGRAMARE WEB ÎN BASH ŞI PERL 


e -onLoad specifică instrucțunile JavaScript rulate la apariția 
evenimentului de încărcare a paginii; 


e  -onUnioad defineşte codul JavaScript invocat la apariția evenimentului 
de părăsire a paginii Web. 


e  end_htn1() termină o pagină HTML. 


Pentru fiecare element HTML poate fi invocată metoda purtând acelaşi nume cu 
al marcatorului dorit: 


e metode de generare a elementelor vide (e.g. <hr> sau <br>): 


print $c-»hr; 


e metode de generare a elementelor având tag-uri de început şi de sfârşit 
(e.g. <em>, «h3» sau «a»): 
print $c->h3 ("Sunt ", $c-»em("inclinat"), " sa cred..."); 
Un alt exemplu, care genereazá o listá neordonatá de hiperlegáturi, este: 
use CGI qw/:standard/; 


print h2("Despre noi..."), 


ul ( 
li (a((href=>"http: //www.infoiasi.ro/-stanasa/"), 
"Stefan")), 
lifa((href-»"http://www.cs.tuiasi.ro/mituc/"), 
"Victor")), 
li(a((hrefz»"http://www.infoiasi.ro/-busaco/"), 
"Sabin"))) 


Pentru a genera cele mai multe marcaje HTML, vom invoca funcțiile/metodele 
corespunzătoare scrise cu minuscule, cu următoarele excepții: 


e pentru a construi elemente <tr> se va folosi Tr () ori TRO, deoarece tx () 
este funcție Perl standard; 


e pentru a genera «param» (subelement al marcatorilor «applet sau 
<object>), vom invoca PARAM(); 


e pentru a genera «select» se va utiliza funcţia select () în loc de funcția 
standard select (). 


Vom ataşa atribute elementelor HTML prin pasarea fiecărei funcții 
corespunzătoare unui element a unui tablou asociativ conținând valorile acestor 
atribute. Un exemplu: 


use CGI qw/:standard/: 


i radio group) 
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# generam o imagine 


print img(src => 'fig.gif', 
align => 'right', 
alt => 'Figura'): 


Un alt exemplu, în care vom afişa un tablou al cărui conţinut este generat prin 
program: 
41! /usr/bin/perl 


use CGI qw/:standard/: 
print header; 


avalori = (1..33); 
Ganteturi = ('n', 'n/2', 'n' . sup('2')); 
Grinduri = th(MGanteturi): 


foreach $rind (8valori) | 
push(Grinduri, 
Tr((-align-»'center'], 
td($rind), td($rind/2), td($rind**2))); 


) 
print table((-border-»'1i', -width-»'502'], 
Grinduri): 


Crearea formularelor Web 


Modulul CGI permite generarea formularelor HTML într-o manieră simplă şi 
flexibilă, putând fi utilizate următoarele metode: 


Tabelul 4.3 — Metodele Tolose rone generarea formularelor Web 


marchează, ză inceputul w unui fc form 


ile , utilizat pentru acţiunea d de upload . 


generează u un n grup. de 


submit ( ) PTT creează un buton de tip: submit i «fa À 
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H e EENAA n ne mi a mi are RE ii aia i Ir i S ATTE 
[  reset() ; LL, Creează un buton de tip reset 


Utilizarea metodelor prezentate poate fi urmărită în cadrul exemplelor din 
secțiunea 2.3. 


Alte funcții utile oferite de modulul CGI sunt: 


e  escape() converteşte un şir de caractere în codificarea utilizată de 
URI-urile CGI; 


e  unescape() convertește un şir codificat CGI în reprezentarea sa normală; 


use CGI qw/escape unescape/; 


$sir = escape('-/:8?'); 
print unescape($sir); 


e  escapeHTML() converteste un sir de caractere, substituind orice caracter 
HTML ilegal prin entitatea corespunzátoare; 


e  unescapeHTML() convertește un şir de caractere conținând entităţi HTML 
în şir obişnuit. 


use CGI qw/escapeHTML unescapeHTML/; 


$sir = escapeHTML('Un sir mai «mic»...'); 
print unescapeHTML ($sir); 


TTE 


Înainte de a fi operaţionale efectiv pe Web, scripturile CGI trebuie atent 
verificate şi depanate. Modulul CGI oferă suport şi pentru aceste activități 
importante, programatorul putând apela un script Perl direct de la prompt-ul 
sistemului. Parametrii care în mod normal trebuiau preluaţi via variabila de mediu 
QUERY_STRING sau de la intrarea standard pot fi furnizaţi ca argumente în linia de 
comandă: 

(infoiasi)$ ./preferinte.pl nume-Sabin culoarezverde 


O altă metodă: 
(infoiasi)$ ./preferinte.pl nume=Sabin&culoarezverde 
Mai mult, scriptul poate fi apelat fără argumente, iar valorile vor fi citite de la 


intrarea standard (fiecare construcţie de forma numesvaloare fiind urmată de un 
caracter linie nouă). 
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Modulele CGI. Alte module utile 
În fapt, modulul CGI este suplinit şi de următoarele module: 


e  Base.pm oferă funcţionalităţile de bază pentru dezvoltarea de scripturi 
CGI; 


e BasePlus.pm extinde modulul precedent, adăugând facilități precum 
upload de fişiere; 


e Request .pm este responsabil cu analiza şi procesarea cererilor HTTP; 


e  Form.pm este folosit pentru a genera mai uşor formulare Web, în loc de a 
scrie cod HTML; 


e MiniSvr.pmimplementeazá un server HTTP minimal; 
e  Response.pm este utilizat pentru a genera anteturi HTTP; 


e  Carp.pm permite redirectionarea mesajelor de eroare către navigator, spre 
un fişier jurnal sau un fişier utilizator. 


Ca exemple de utilizare a modulului CGI::Carp menţionăm următoarele: 


redirectionarea erorilor spre un fişier: 


e 


use CGI::Carp aw(carpout) ; 


open (LOG, "»2/var/log/httpd/erori.log") or 
die "Eroare la adaugare: $!Mn"; 
carpout (*LOG): 


e  redirectionarea erorilor spre navigatorul Web: 


use CGI::Carp aw(fatalsToBrowser); 
die "O eroare intentionata..."; 


Pentru prelucrarea documentelor HTML ne putem sluji de modulele HTML, 
cum ar fi HTML::Parser, HTML::Parse, HTML::Entities sau HTML::FormatText. 
Acestea pot converti codul HTML în alte formate sau pot realiza modificări interne 
în cadrul unei pagini Web. 


Vom scrie câteva exemple, sperăm concludente: 


e convertirea unui document HTML în format text ASCII 


use HTML::FormatText; 
use HTML: :Parse; 
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i incarcam documentul dorit 

$html = parse htmlfile("cv.html"); 
$ initializam formatatorul 
$format = HTML::FormatText-»new(); 
* convertim in text 

$text = $format-»format($html); 
print $text; 


Metoda  format() realizează  formatarea întregului document HTML 
convertindu-i in text (desigur, informaţiile multimedia, scripturile si stilurile vor fi 
pierdute). 


e convertirea unui text ASCII în document HTML 


' Vom presupune cá avem un fişier conţinând text ASCII în care am utilizat 
pentru scriere convențiile de formatare vehiculate pe Internet (*text* reprezintă un 
text îngroșat, _text_ specifică un text înclinat). În plus, convenim ca orice linie 
care începe cu un spațiu să fie formatată cu <pre>, iar caracterele prefixate de 
http: să fie considerate hiperlegáturi. Orice linie vidă va desemna începutul unui 
paragraf nou. 


Caracterele cu coduri peste 127 vor fi codificate ca entități HTML prin utilizarea 
modulului HTML::Entities. 


+! /usr/bin/perl -w -p00 


# ascii2html.pl 
* -p scriptul se aplica fiecarei inregistrari gasite 
4 -00 o inregistrare e considerata paragraf 


use HTML::Entities; 


$_ = encode entities($ , "4200-3377"); 
i£ (/^xvs/) ( 
$ paragrafele incepind cu spatii albe sunt 
d$ incadrate intre «pre» 
s{(.*)$} {<pre>\n$1</pre>\n}s; 
} 
else { # paragraf obisnuit 
# URL inclus 
s{<URL:{.*?)>} {\n<a href="$1">$1</a>}gs; 
# posibil URL 
s{(http:\S+)} (4n«a href="$1">$1</a>}gs; 
# text *ingrosat* 
SPAAS] {<b>$1</b>}g; 
# text _inclinat_ 
S(Nb (NS4)X Nb) {<i>$1</i>}g; 
+ linie vida, deci alt paragraf 
s(^) (<p>in) 
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Vom da ca argument în linia de comenzi numele fişierului ascii.test.txt: 


Salut! 
Destul. de *bine*, nu? 


Un titiu de carte: 
_Programarea aplicatiilor Web. 


Vizitati-ne la http: / /www.infoiasi.ro/-cgi 
scrieti-ne_ la «URL:mailto:cgiGinfoiasi.ro», chiar acum. 


În urma rulării scriptului se obţine: 
(infoiasi)$ ./ascii2html.pl ascii.test.txt 
«p» 
Salut! 


«p» 
Destul de «b»bine«/b», nu? 


«pre» 
Un titlu de carte: 
_Programarea aplicatiilor Web. 


</pre> 

<p> 

Vizitati-ne la 

<a href-"'http://www.infoiasi.ro/-cgi"» 
http://www.infoiasi.ro/-cgi«/a» 


«p» 
«i»Scrieti-ne«/i» la I. "e 
«a hrefe"mailto:cgi&infoiasi.ro'»mailto:cgiGinfoiasi.roc/a», 


chiar acum. 


e  extragerea/eliminarea unor marcaje HTML 


Dacă dorim să extragem conţinutul unui anumit element putem scrie următoarea 
expresie regulată, unde variabila $ntm1 contine marcatori HTML: 


($titiu) = ($html =~ mă<title>is* (.*?)is*</title>tis); 


Se ignoră tot ce apare până la «title», apoi trecem peste toate spațiile albe 
(Ns*), preluăm toate caracterele până la eventualele spatii albe care pot preceda 


</title>. 


O altă variantă, bazată pe modulul HTML::Parser, este: 


#!/usr/bin/perl 


use strict; 


use HTMD::Parser {[); 
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sub print { print 8 ): 


# functie de tratare a aparitiei unui marcator 
sub start handier 
( 
# nu este marcatorul dorit 
return if shift ne "title"; 
my $self = shift; 
+ atasam functii apelate la evenimentele 
+ de aparitie a continutului... 
$self-»handler(text => M&print, "dtext"); 


4 ...si a tag-ului de sfirsit 
$self-»handler(end => sub ( 
shift-»eof 


if shift eq "title"; ), 

i "tagname, self"); 
# initializam analizorul HTML 
my $p = HTML::Parser-»new( 

api_version => 3, 

start h => [X&start handler, "tagname,self"]):; 
+ analizam fisierul dat ca 
# prim argument in linia de comenzi 
$p->parse_file (shift || aie) || aie $5; 
print *An^: 


Urmátorul exemplu extrage dintr-un document HTML toate marcajele «a 
hrefz'..."» şi afişează legăturile respective: 


4! /usr/bin/peri -w 
use HTML: : Parser 3; 


# initializam analizorul 
my $p = HTML::Parser-»new(api version => 3, 
start h => [&a start handler, "self,tagname,attr"]); 


+ incarcam si procesam fisierul 
$p-»parse file(shift || die) || die și; 
+ functia de tratare a tag-ului de inceput «a» 
sub a,start handler 
( 
my($self, $tag, $attr) = @ 
4$ tag-ul nu este «a» 
return unless $tag eq "a"; 
+ nu exista atributul 'href' 
return unless exists $attr->(href); 
+ afisam informatiile 
print "A $attr-»(href)*Mn"; 
4 atasam functiile de tratare a evenimentelor 
d de aparitie a unui «img» sau a unui </a> 
$self-»handler(text => [], "dtext" Y; 


per] 
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$self->handler (end => X&a end handler, "self,tagname"): 
) 
# functia de tratare a tag-ului. «img» 
sub img handler 
{ 
my ($self, $tag, $attr) = e 
+ nu este «img» 
return unless $tag eq "img"; 
+ memoram valoarea atributului 'alt', 
# daca exista 
push (€($self->handler ("text”)), 
[$attr-»(alt) || "LIMG]"]); 


ea 


) 
# functia de tratare a tag-ului de sfirsit </a> 
sub a_enâ_handler 
( 
my($self, $tag) = 8.; 
my $text - join("", map $ -»[01, 
QG($self-»handler("text"))); 
4 eliminam spatiile albe din textul 
+ intre «a» si </a> 


$text =~ s/^WMs*//; 
$text =~ s/\S+$//; 
$text =~ s/Ns*/ /9; 


# afisam acest text 
print "T $text\n"; 
4 atasam functiile de tratare pentru evenimentele 
# tag de inceput si sfirsit 
$self-»handler("text", undef); 
$self-»handler("start", N&a, start handler); 
$self-»handler("end", undef); 

H 


Un ait modul interesant este LWP (Library for Web access in Perl), care oferá o 
serie de obiecte pentru accesarea resurselor detinute de un server Web. De 
exemplu, implementarea unui mini-navigator sau robot Web simplu se poate 
realiza în câteva linii de cod. 


De menţionat aici şi faptul că serverul Apache încorporează direct interpretorul 
Perl prin intermediul modulului mod peri, astfel încât timpul de execuție a 
scripturilor CGI concepute în Perl să fie minim. Pentru fiecare script Perl invocat, 
serverul Web va lansa o nouă instanță a interpretorului implementat de mod, peri. 
De asemenea, la iniţializarea serverului (pornirea daemonului httpd) putem 
configura mod, per1 astfel încât să se încarce modulele Perl dorite în acest moment 
şi nu la prima lor utilizare, accelerându-se timpul de execuţie a scripturilor. Alte 
avantaje sunt cele legate de implementarea directivelor SSI sau de scrierea de 
module Apache direct în Perl. 
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2.3. Exemple de scripturi 


Furnizăm în continuare o serie de exemple de scripturi CGI, folosind sau nu 
modulul CGI. De asemenea, vom da un exemplu de program prelucrând cookie-uri 
şi unul în care se va invoca un script via SSI. 


Calendar 


Începem cu un exemplu clasic de script care afişează calendarul unui an 
(furnizat de utilizator sau anul curent). Pentru generarea calendarului se va recurge 
la comanda UNIX ca1. Acest script nu foloseşte modulul CGI şi poate fi invocat 
indiferent de metoda HTTP utilizată (pentru aceasta vom testa valoarea variabilei 
de mediu REQUEST. METHOD). i 


4! /usr/bin/perl -w 

# afiseaza calendarul, 

i folosind comanda UNIX 'cal' 

+ (scriptul va fi functional indiferent 
# de metoda HTTP folosita: GET sau POST) 


SCAL = '/usr/bin/cal'; 
Gani = (1990..2033); 
Sinterogare = &furnizeaza, interogarea; 


$ preluam anul 
if ($interogareí('an')) ( 

ŝan = $interogare('an'); 
) eise ( 

chop($an = "date 4«$Y^); 
) 


+ antetul paginii 
print ««HTML; 
Content-type: text/htmi 


«html»«head»«title»Calendar«/title»«/head» 

«body textz"blue" bgcolor="white"> 

<h3 aligns"center"»Calendarul pentru anui $an </h3> 
HTML 


i 


# cream formularul din care se va prelua anul dorit 
print "<form method=\"POST\">\n"; 
print "Selectati anul: «select name=\"an\">\n"; 
# va fi selectat implicit anul curent 
foreach $un_an (@ani}) ( 

print "<option"; 

# selectam implicit anul curent 

if ($un_an == $an) ( 

print " selected"; 
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) 

print "»$un, an«/option»An"; 
H 
print "«/select»An"; 
4 butonul de trimitere | . 
print '«p»«input type-"submit" value-"Afiseaza calendarul"-'; 
print "«/form»MAn«hr» Mn"; 


# ne pregatim de afisarea calendarului 

4 verificam anul 

unless ($anz-/^Nd(4)$/) ( | . 
print "<p styles'color:red'»Anul trebuie sa aiba 4 cifre«/p» Mn"; 
exit 0; 

: executam comanda 'cal' pasindu-i ca parametru anul dorit 

chop(Scalendarul = ^S$CAL $an'); 

4 rezultatul returnat de 'cal' 

+ este afisat preformatat cu «pre» 

print ««HTML; 

«pre» 

$calendarul 

«/pre» 

«hr» 

«/body» 

</html> 

HTML 

# am terminat 

exit; 


# rutinele de procesare a interogarii 
sub furnizeaza interogarea { 
iocal(Sinterogarea); 
# preluam metoda cererii 
local (Smetoda) = SENV ( ' REQUEST_METHOD') ; , 
# daca e GET, preluam datele din variabila đe mediu 
if ($metoda eq 'GET') ( 
Sinterogarea = SENV('QUERY, STRING'); 
4 dace e POST, preluam de ia intrarea standard 
) elsif ($metoda eq 'POST') { 
read(STDIN, $interogarea, S$ENV(' CONTENT LENGTH ')) ; 


H 
4 iesim, daca nu e furnizata nici o data 
return () unless $interogarea; 


i procesam interogarea 
return &analiza parametri ($interogarea); 


) 


sub analiza parametri ( 
4 variabile locale 
local($interogare) = 
+ preluam perechi 'c p=valoare! 
local(üperechi) = splict('&', $interogare9): 
local($parametru, $valoare, *paramoetri); 
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foreach (Gperechi) ( 
+ preluam valoarea si numele de camp 
($parametru, $valoare) = split('='); 
i decodificam valorile 
sparametru = &unescape($parametru); 
$value = &unescape (value); 
$ memoram în tabloul 'parametri' 
if ($parametri(Sparametru)) ( 


$parametrií($parametru) .- "$;$valoare"; 
) eise { 
S$parametri($parametru) = $valoare; 


J 
) y 
return %parametri; 


} 


# functie de decodificare 
sub unescape { 

local($sir) = 8G ; 

4$ "e" devine spatiu 

$sir =~ tr/*/ /; 

+ %HH devine caracter ASCII 


$sir =~ s/%([0-9A-Fa-f](2)) /pack("c", hex($1))/ae; 
return $sir; 


Contorizarea accesului la o pagină Web 


Ne propunem să memorăm într-un fişier numărul de vizite ale utilizatorilor unei 
anumite pagini Web. Din cauza faptului că actualizarea conţinutului acestui fişier 
se poate realiza concurent (mai multe persoane pot încărca pagina concomitent), 
vom utiliza un fişier-lacăt care să indice dacă putem reactualiza conținutul 
fişierului de contorizare. 


Codul-sursă al scriptului stocat în fişierul contor.p1.cgi este: 
4! /usr/bin/per! 


$contor = '/home/httpâ/contor.data'; 
Șlacat '/home/httpd/contor.LOCK': 


H 


print "Content-type: text/htmlinin"; 
&incrementeaza; 
print $accesari; 


sub incrementeaza { 
# citim numarul de accesari din fisier 
open (CONTOR, $contor) || 
die "Eroare la deschiderea contorului. n"; 
$accesari = «CONTOR»; 
Saccesari++; 
close (CONTOR) ; 


LIMBAJUL PERL in 


scriere concurenta 

verificam existenta fisierului lacat 
exista, deci alta instanta a scriptului 
actualizeaza continutul contorului 
while (-e $lacat) ( 

sleep 2; # asteptam 2 secunde 


3 o che dt 


) 


# putem scrie in fisier, cream lacatul 
open(LACAT, "»$1acat") E 
die "Eroare ia crearea lacatului.in"; 
close (LACAT) ; 
4 scriem valoarea incrementata 
open (CONTOR, "»$contor") E 
die "Eroare la actualizarea contorului"; 
print CONTOR "SaccesariMn"; 
close(CONTOR); 
+ stergem lacatul 
unlink($lacat); 


Acest script va fi invocat la fiecare încărcare a unui document HTML, folosind 
directiva SSI exec: 


«html» 
«head» 
«title»...«/title» 
«/head» 
<body> 


<p>sunteţi vizitatorul cu numărul: . 
«1--fexec cgi-"/cgi-bin/contor.pl.cgi" --> 
</body> 
</html> 


Numărarea liniilor unui fişier 


Acest exemplu ilustrează acțiunea de upload, prin preluarea de pe calculatorul- 
-client a unui fişier în vederea numărării liniilor, cuvintelor sau caracterelor 
conţinutului său. Pentru aceasta, vom genera un formular HTML utilizând 


Sursa acestui script Perl, denumit numara.pil.cgi, este următoarea: 


4! /usr/bin/peri 
use CGI; 


3 instantiem obiectul CGI 
$cerere = new CGI; 

print $cerere-»header; 
&interogare($cerere); 
&numara($cerere); 

print $cerere-»end html; 
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# am terminat 
exit; 


# afiseaza formularul de interogare a utilizatorului 
sub interogare { 


my($cerere) = Q ; 
i definim tipurile de calcule pe care le oferim 
my(Gtipuri) - ('numara linii', 


'numara cuvinte', 
'numara caractere'); 
print ««END; 
<h3>Numara< /h3> 
«p»Selectati <b>Browse</b> pentru a alege un fisier text, 
apoi apasati butonul <b>Numara</b>. 
END 


i 


+ genereaza un formular 
print 
+ formular eteroge 
$cerere-»start multipart form, 
"Introduceti numele fisierului:", 
$cerere-»filefield(-name => 'fisier', 
-size -» 30), 
"<br>", 
$cerere-»checkbox group(-names»'numarare', 
-values=>\@tipuri, 
-defaults=>\@tipuri}, 
"<p>", 
# afiseaza butoanele standard 
# de tip 'reset' si 'submit' 
$cerere-»reset, 
$cerere-»submit(-label-»'Numara'), 
$cerere-»end form; 


) 


+ numara linii, cuvinte, caractere 
sub numara ( 


my($cerere) = 8 ; 
+ procesam datele introduse 
if (Sfisier = $cerere-»param('fisier')) ( 


print "«hr» An"; 
print "<h3>Fisier: «tt»$fisier«/tt»«/h3» Mn"; 
# procesam continutul fisierului 
while («$fisier») ( 

$linii++; 

$cuv += Gcuv = split(/Ns*/); 

$caract += length($.); 
) 
4 vedem ce tip de numarare a fost selectat 
grep (Snum($_)++, $cerere-»param('numarare')); 
if ($num) ( 

print "«b»Linii:«/b» $linii«br»An" 

itle 


i£ €pumícmumara linii 
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print "«b»Cuvinte:«/b» $cuv«br» Mn" 
if $num('numara cuvinte'); 
print " <b>Caractere:</b> $caract«br» ^n" 
if $numí('numara caractere!'); 
) else { 
print "«b»Nu ati selectat nici * 
"o metoda de numarare.«/b»Mn"; 
) 
) 4 sfirsit de if 


Afişarea unei imagini aleatoare 


Ne propunem să scriem un script care la fiecare rulare să afişeze o altă imagine 
preluată aleator dintr-un director cu fişiere grafice în formatele JPEG (Joint Picture 
Experts Group), GIF (Graphical Interchange Format) sau PNG (Portable Network 
Graphics). Codul-sursá al acestui script simplu este: 


£1/usr/bin/perl 
# afiseaza continutul unui fisier grafic ales aleatoriu 


use CGI qw/:standard/; 


& constante folosite pentru specificarea 
+ directoarelor care contin imagini 

$DIR RADACINA = ur 

S$DIR IMAGINI = 'img'; 


chdir "$DIR RADACINA/S$DIR IMAGINI" 
or die "directorul de imagini e inaccesibil."; 
+ preluam intr-un tablou fisierele JPEG, GIF si PNG 
Qimagini = <*.(ipg,gif,png)>; 
+ alegem imaginea 
$imagine = $imagini[rand(8imagini)]; 
die "eroare la selectarea imaginii" unless Simagine; 
4 redirectam navigatorul spre imaginea aleasa 
print redirect ("$DIR_IMAGINI/$imagine”) ; 


Memorarea preferințelor utilizatorilor 


În cadrul acestui script vom putea observa capabilitățile oferite de modulul CGI 
în ceea ce priveşte manipularea cookie-urilor. Utilizatorul va putea introduce, prin 
intermediul unui formular interactiv, numele său, culoarea de fundal a paginii şi 
mărimea fontului implicit. Aceste preferinţe vor fi stocate în cookie-uri pe maşina- 
-client a utilizatorului până la următoarea vizită sau maxim 30 de zile. La invocarea 
scriptului se verifică dacă preferințele există şi se modifică înfăţişarea paginii în 
concordanţă cu acestea. 


41/usr/bin/perl 
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use CGI; 


* constante utilizate in cadrul formularului 

+ culori de fundal dorite 

Gculorizqw/gray coral bisque beige gold green lime linen 
orchid seashell sienna silver wheat/; 

# dimensiunea fontului 

Gmarime-("«implicit»", 1..7); 


+ instantiem obiectul CGI 

$c = new CGI; 

+ preluam vechile preferinte din cookie-ul "preferinte" 
%preferinte = $c-»cookie('preferinte'); 

+ preluam noile preferinte ale utilizatorului prin 

4 inspectarea valorilor transmise prin formular 


$preferinte('culoare') = $c-»param('culoare') 
if $c-»param('culoare'); 
$preferinte(['nume') = $c-»param('nume') 
if $c-»param('nume'); 
$preferinte('marime') = $c-»param('marime') 


if $c-»param('marime'); 
+ alegem culoarea implicita 'silver' daca nu exista 
$preferinte('culoare') = 'silver' 

unless $preferinte('culoare'); 
+ modificam parametrii cookie-ului astfel incit 
+ sa fie persistent si sa reflecte noile preferinte 
$un cookie = $c-»cookie(-name-»'preferinte', 

-valuez»X$preferinte, 
-expires-»'4«30d'); 
+ trimitem cookie-ul 
print $c->header (-cookie=>$un_cookie) ; 
$ generam titlul paginii, incluzind numele utilizatorului 
$title = $preferinte('nume!') ? 
"Pagina lui $preferinte(nume)!" 
"Pagina utilizatorului"; 
# vom crea pagina HTML, oferind posibilitatea 
+ de a schimba preferintele de 
+ culoare, nume de utilizator si marimea fontului 
print Şc->start_html (-title=>$title, 
-bgcolor-»$preferinte('culoare']); 

+ stabilim marimea fontului 
print "«basefont size=$preferinte(marime)> n" 

if $preferinte('marime'] > 0; 
print ««END; 
<h3 align-z"center"»$title«/h3» 
«hr» 
«p align-"justify"'» 
Modificati modul de aparitie al paginii completind 
formularul de mai jos. Preferintele dumneavoastra vor fi 
valabile timp de maxim 30 de zile.«/p» 
END 


; 


LIMBAJUL PERL 177 


&.vom crea formularul de preferinte 
print join("MAn", 
"<hr>", ` 
$c->start_form, 
‘Prenumele d-voastra: ^", 
$c-»textfield(-name-»'nume', 
-defaultz»$preferinte('nume'), 
-sizez»30), 
"<br>", 
"Culoarea de fundal preferata: ", 
$c-»popup menu(-name-»'culoare', 
-valuesz»XGculori, 
-default-»$preferinte('culoare')), 


"Marimea fontului: ", 

$c-»popup. menu (-names»'marime', 
-values=>Nâmarime, 
-default-»$preferinte('marime']), 


"«br»", 
$c-»submit(-label-»'Memoreaza preferintele'), r 
"«hr»"); 


3. Perl si bazele de date relationale 


Bazele de date relationale sunt implementări practice, optimizate ale modelului 
relational propus de E.F. Codd în anii *70, utilizând algebra relationalá (cei 
interesati de fundamentele teoretice ale bazelor de date relationale pot consulta 
cartea lui V. Felea, Baze de date relafionale. Dependenfe, Editura Universităţii 


„ALI. Cuza”, laşi, 1996). 


În Perl se pot concepe foarte uşor diverse scripturi CGI pentru a asigura, pe 
partea de server, conectivitatea cu serverele de baze de date (e.g. Oracle, 
PostgreSQL, MySQL etc.). De asemenea, există posibilitatea de a utiliza un driver 
generic ODBC destinat conectării la orice server de baze de date care respectă 


acest standard. 


3.1. Modulul DBI 


Pentru a asigura independenţa de arhitectura internă şi modul de comunicare cu 
sistemele de gestiune a bazelor de date relationale, în Peri, programatorul are la 
dispoziţie modulul DBI (DataBase Interface), care oferă o interfață abstractă de 


programare a bazelor de date. 


Structura modulului DBI este divizată în două componente majore: interfața de 
programare DBI şi driverele specifice serverelor de baze de date cu care se doreşte 
să se opereze. Interfața de programare DBI oferă suport la nivel înalt pentru diferite 
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operațiuni cu baze de date, iar driverele asigură modalitatea efectivă de conexiune 
la un server de baze de date particular, în vederea execuţiei comenzilor invocate. 


Modulul 
DBI 


Driver Driver Driver Driver 
Oracle = MySQL Ẹ PostgreSQL. E DB2 


Fig. 4.2 — Arhitectura modulului DBI 


Fluxul de date între navigatorul Web şi serverul de baze de date este prezentat în 
figura 4.3, 


Este relativ uşor să se implementeze un driver pentru oricare tip de bază de date, 
cerința principală fiind aceea de a implementa metodele definite de specificatia 
DBI (în termenii programării obiectuale, de a deriva din clasa abstractă DBI o 
subclasă specializată, particulară, corespunzătoare unui sistem de baze de date). 
Driverele existente în prezent oferă suport pentru Oracle, Informix, mSQL, 
MySQL, PostgreSQL, Ingres, DB2 sau Sybase. Aceste drivere, se mai numesc şi 
drivere de baze de date (DBD — DataBase Drivers), iar pentru fiecare server de 
baze de date se defineşte un spaţiu de nume care să-l identifice (e.g. DBD: :Oracle). 


Modulul DBI oferă programatorului trei tipuri de obiecte cu care acesta să 
interacționeze, la nivel înalt, cu bazele de date, aceste obiecte fiind denumite 
descriptori (handlers). Similar mecanismului de la fişiere, DBI pune la dispoziție 


descriptori de driver, descriptori de bază de date şi descriptori de interogare, după 
cum urmeazá: 


e Descriptorul de driver (driver handler) reprezintă, în cadrul programului 
Perl, driverul inițializat şi încărcat de DBI pentru manipularea unui sistem 
de baze de date particular. Pentru fiecare driver se asociază un descriptor 
separat. Folosind acest descriptor, vom afla sursele de date la care ne 
putem conecta prin intermediul unui anumit driver, invocând metoda 
data, sources (), şi vom putea, de asemenea, realiza o conexiune efectivă 
cu o sursă (bază) de date prin intermediul metodei connect (). Fiecare 
handler este încapsulat într-un obiect Perl separat, astfel încât în scripturi 
pot fi utilizați descriptori diferiți pentru a realiza conexiuni cu mai multe 
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servere de baze de date simultan. În mod uzual, vom referi acest descriptor 
de driver prin $arh. 


+ Descriptorul de bază de date (database handler) încapsulează o conexiune 
unică la o bază de date particulară, stocată de un anumit sistem de baze de 
date relaționale. Înainte de a executa interogári asupra unei baze de date, và 
trebui să ne conectăm la acea bază de date prin funcţia connect (), care va 
returna un descriptor de bază de date. Acest descriptor va fi referit prin 
$dbh. Si în acest caz, pot fi realizate conexiuni concurente asupra aceleiaşi 
baze de date, fiecare conexiune fiind desemnată de un descriptor de bază 
de date separat. 


e  Descriptorul de interogare (statement handler) va fi folosit e 
desemna o interogare (comandá) SQL care va fi executată asupra bazei de 
date. Rezultatul interogării va putea fi regăsit via descriptorul : 
interogare, DBI permiţând execuția de comenzi concurente. Descriptoru 
de interogare va fi în mod uzual referit prin $sth. 


Pentru a asigura în manieră uniformă conectivitatea cu mai multe tipuri de 
sisteme de baze de date, se vor utiliza anumite convenții pentru a specifica numele 
bazei de date sau numele mașinii pe care este stocată respectiva bază de date. 
Aceste informaţii vor fi referite prin intermediul unui nume de sursă de date, 
respectându-se o regulă similară sintaxei URI (vezi capitolul 1). 


Numele unei surse de date va începe obligatoriu cu ,,dbi : ” urmat de numele 
driverului (e.g. Oracle sau MySQL). Alte sufixe care vor apárea vor fi durus 
parametri metodei connect() implementate de driver in vederea rea um 
conexiunii efective (de exemplu, vor trebui specificate numele simbolic a 
calculatorului, numele bazei de date sau portul de conectare). 


Pentru a vedea ce drivere sunt instalate în sistem, vom utiliza 
available drivers (), după care vom invoca data_sources() pentru fiecare 
driver returnat. 
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Karete | 
Navigator Web 


vereie 


răspuns 


Interpretor 
Perl 


Modulul : 
DBI ] 


DBD:; MySQL É 


DBD::Oracle DBD::0DBC 


pr 


Server 


Oracle 


Fig. 4.3 — Fluxul de date între navigatorul Web şi serverul de baze de date 
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Fig. 4.4 — Descriptorii DBI 
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Astfel, urmátorul script va lista toate driverele disponibile si sursele de date 
corespunzátoare fiecárui driver existent din sistem: i 
#i/usr/bin/perl -w 
f£ utilizam modulul DBI 
usé DBI; 
my @drivere = DBI-»available, drivers(); 

& verificam existenta driverelor 
die "Nu exista nici un driver... Mn" unless Gdrivere; 
4 iteram tabloul 'drivere' si listam sursele de date 
foreach my $driver ( 8drivere) | 
print "Driver: $driverWn"; 
my Gsurse = DBI-»data sources( $driver ); 


foreach my $sursa ( 8surse ) ( 
print "NtSursa de date: $sursaM"; 


) 
print "Mn"; 


) 
Ca exemple de surse de date pentru sisteme particulare putem menfiona: 


e  dbi:Oracle:descriptor pentru Oracle: 
dbi:Oracle:studenti 

e . dbi:mSQL:calculator:baza de date:port pentru mSQL: 
dbi:mSQL:fenrir.infoiasi.ro: studenti:1114 


e  dbi:Pg:dbname-baza de date;host-calculator pentru serverul de baze 
de date PostgreSQL: 
dbi:Pg:dbname-studenti;host-fcs 


€  dbi:mysql:dbname-baza, de date;host-calculator în cazul serverului 
MySQL: 
dbi:mysql:dbname-clienti;host-fcs 


3.2. Operatii uzuale asupra bazelor de date 


Pentru cele exemplificate mai jos, vom presupune cá sunt instalate serverul 
MySQL şi modului DBI prezentat anterior. 


Pentru început, vom scrie o serie de subrutine Perl utile pentru conectarea la 
serverul de baze de date, execuţia de instrucțiuni SQL asupra tabelelor de date şi 
deconectarea de la server la terminarea prelucrării. 


Aceste subrutine le putem stoca într-un fişier separat, pe care îl vom include 
ulterior în cadrul aplicaţiilor noastre. Vom denumi acest fişier perl db.pi. 
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Codul-sursá al subrutinelor Perl este urmátorul: 


e crearea unei conexiuni cu serverul SQL 


sub conectare ( 
# utilizarea modulului DBI 
use DBI; 
+ completarea parametrilor utilizati de connect() 
+ completam mai intai numele sursei de date 
$DSN = "dbi:mysqgl:dbname-$db name"; 
$ numele si parola pentru autentificare 


$user - "utilizator"; 

$pass = "parola"; 

# incercam conectarea 

$dbh = DBI->connect ($DSN, $user, $pass) 


|| die "Conectare esuata: S$DBI::errstrin" 
unless $dbh; 
return; 


) 


Variabila psn (Data Source Name) va contine numele sursei de date la care 
dorim să ne conectám (în acest caz, am utilizat un driver MySQL). 


Numele bazei de date la care dorim sá ne conectám va fi stocat in variabila 
globală ab name. Pentru realizarea conectării trebuie să ne autentificám prin 
numele „utilizator” având parola ,parola" (desigur, pentru a folosi această 
subrutină într-un mod cât mai general nu trebuie să inserăm aici valorile acestor 
variabile, ci să le considerăm globale, putând fi iniţializate diferit în cadrul 
scriptului CGI). 


Metoda connect () realizează conectarea efectivă la serverul de baze de date 
MySQL. În cazul unei nereuşite (serverul nu este operaţional, nu există baza de 
date, autentificarea a eşuat etc.), codul de eroare se regăsește în variabila errstr. 
Va fi returnat un handler al bazei de date (număr întreg) prin intermediul căruia 
vom prelucra mai târziu baza de date pe care o identifică. 


De asemenea, vom putea realiza conexiuni multiple la aceeaşi bază de date, 
după cum se poate remarca din următoarele linii de cod: 


my $dbhi = DBI-»connect("dbi:mysqli:dbnamesstudenti", 
"utilizator", "parola"] 
or die "1: Conectare esuata: ȘDBI::errstrin"; 
my $dbh2 = DBI-»connect("dbi:mysql:dbname-studenti", 
"utilizator", "parola") 
or die "2: Conectare esuata: SDBI::errstrWMn"; 


Desigur, ne putem conecta simultan la douá baze de date diferite: 


my $dbhl = DBI-»connect("'dbi:mysql:dbname-studenti", 
"utilizator", "parola") 
or die "Conectare esuata la MySQL: $DBI::errstrAn"; 
my $dbh2 = DBI-»connect("dbi:Pg:dbname-adrese", "fes", "fcs") 
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or die "Conectare esuata la PostgreSQL: 
$DBI::errstrMn"; 


e trimiterea de comenzi SQL către server 


sub executa SQL ( 

+ pregatirea de executie a comenzii SQL 

eval ( 
$sth = $dbh-»prepare($SQL); 

E 

+ verifícárea aparitiei erorilor 

i£ ($8) 4. 
$ a aparut o eroare fatala 
4 Geconectare de la server 
$abh->âisconnect; 
+ afisarea mesajului de eroare 
print *Content-type: text/htmlinin"; 
print "«p»Eroare SQL: $â</p>in"; 
„exit; 

) 

else ( 
# executia comenzii SQL 
$sth-»execute; 


) 


4 returnarea rezultatului 
return ($sth); 
) 

Subrutina va realiza mai întâi o verificare a corectitudinii cererii SQL, prin 
utilizarea lui eval () şi a metodei prepare (), furnizată de modulul DBI. În cazul în 
care comanda SQL este corectă, atunci aceasta va fi executată de serverul de baze 
de date, iar variabila stn (statement handler) va confine rezultatul returnat de 
serverul SQL. În caz de eroare, vom putea folosi disconnect () pentru a elibera 
resursele alocate handler-ului la baza de date, apoi vom semnaliza utilizatorului 
mesajul de eroare obținut. 


e  deconectarea de la baza de date 


sub deconectare { 
$dbh-»disconnect; 
) 
Această subrutină este foarte simplă. Se foloseşte metoda disconnect t), pusă la 
dispoziţie de modulul DBI, pentru a elibera resursele alocate bazei de date. 
Subrutina trebuie executată la finalul oricărei prelucrări asupra bazelor de date. 


Pentru a fi mai stricţi, am putea înlocui linia de mai sus cu: 


$dbh-»disconnect or 
warn "Deconectare esuata: SDBI::errstr n"; 


Vom mai concepe si o rutiná de filtrare a interogárilor pe care le vom realiza 
pentru a nu obfine mesaj de eroare din partea serverului SQL atunci când in 


184 PROGRAMARE WEB ÍN BASH SI PERL 


componența unei comenzi SQL există un caracter invalid. Codul-sursă al acestei 
subrutine Perl este: 
sub filter { 
$.[0] 7-s/N'/NNN' 7g: 
return $ [0]; 
) 


Fiecare caracter apostrof va fi substituit de construcţia escape \', care va inhiba 
interpretarea apostrofului de către serverul SQL. S-a utilizat $ [0] pentru cá 


primul element al tabloului de argumente pasat subrutinei, adică e , este referit de 
variabila $, [0]. 


3.3. Tratarea erorilor 


Erorile survenite pot fi tratate fie în mod automat, fie manual de către 
programator. Capabilitátile de tratare a erorilor oferite de modulul DBI sunt referite 
prin intermediul excepțiilor. Astfel, atunci când DBI detectează apariţia unei erori 
la invocarea unei metode, automat se va lansa o funcție die() sau warn() cu 
mesajul de eroare corespunzător. În anumite situaţii însă, am dori să controlăm noi 
înşine erorile survenite. 


Pentru aceasta, ca ultim parametru al metodei connect () putem furniza un 
tablou asociativ ale cărui componente să modifice comportamentul implicit al 
modulului DBI la apariţia unei excepții. 


Un exemplu: 


4$ atributele pasate metodei DBI->connect () 
$atrib = ( 
PrintError => 0, 
RaiseError => 0 
Fi 
# conectarea 
my $dbh = DBI-»connect("dbi:Oracle:studenti", 
"utilizator", 
"parola", 
XSatrib); 


# trecem din nou la tratarea automata a erorilor 
$dbh-»(PrintError) = 1; 


Dupá cum probabil deja se poate bănui, PrintError controlează apelarea 
funcţiei warn() (care afișează la ieşirea standard un mesaj de eroare sau de 
avertisment, fără a întrerupe execuţia scriptului), iar RaiseError este 
răspunzătoare pentru apelarea în caz de eroare a funcţiei aie (), care va conduce la 
oprirea rulării scriptului. 
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Pentru o tratare automatá a erorilor, fárá aportul programatorului, se vor seta 
cele două atribute pe valoarea 1. Implicit, în cazul metodei connect), 
PrintError are valoarea 1, deci programatorul va trebui sá o anuleze dacá doreste 
să realizeze manual tratarea erorilor care pot surveni. 


Următorul exemplu ilustrează utilizarea atributului RaiseError: 


4! /usr/bin/perl -w 


use DBI; 


my ($dbh, $sth, @inreg); 
4 incercam sa ne conectam utilizand driverul Oracle 
$dbh = DBI-»connect ("dbi:Oracle:furnizori", "utilizator", "parola", 
{ 
PrintError => 0, # nu se raporteaza erori via warn() 
RaiseError => 1 4 se raporteaza erori prin die() 


2) 

+ pregatim pentru executie o interogare SQL. 
$sth = $âbh->prepare ("select * from clienti”); 
# executam interogarea 
$sth-»execute(); 
4 afisam rezultatele returnate 
while (8inreg = $sth-»fetchrow array ()) ( 

print ("Inregistrarea: einregin"); 


) 


# ne deconectam de la baza de date 
S$dbh-»disconnectí); 


exit; 

Dupá cum am vázut mai sus, mesajul explicativ (in limba englezá) al unei erori 
poate fi gásit cu ajutorul metodei errstr (). De exemplu, am putea obţine mesajul: 
ORA-12154: TNS: could not resolve service name 

(DBD ERROR: OCIServerAttach) 

Se mai pun la dispozitie si metodele exr() — care va returna numárul erorii 
survenite (unele servere, la apariţia unei erori, vor întoarce valoarea -l fără a 
furniza efectiv ce eroare sau tip de eroare a apărut) — şi state() — care va returna 
un şir de caractere reprezentând siarea unei erori (SQLSTATE). 


În afara atributelor PrintError şi RaiseError, unui driver de baze de date i se 
pot pasa si alte atribute, dintre care menţionăm: 


e  AutoCommit cu valoarea 1 va conduce imediat la realizarea tuturor 
schimbărilor în baza de date; valoarea 0 va însemna că modificările asupra 
bazei de date vor fi efectuate prin invocarea explicită a metodei commit (). 
Implicit, valoarea acestui atribut este 1. 


ə name reprezintă o referință la un tablou de nume de câmpuri. 
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e NUM OF FIELDS furnizează numărul de câmpuri pe care le va returna o 
interogare SQL. 


e NUM OF PARAMS reprezintă numărul de parametri ai unei interogári 
(anumite servere de baze de date permit ca in locul unei valori sá fie 
furnizat un parametru pentru o interogare particulară; parametrii sunt 
indicaţi sintactic printr-un semn de întrebare). 


e warn cu valoarea | va conduce la afişarea avertismentelor. 


e  ChopBlanks cu valoarea 1 va conduce la eliminarea spaţiilor care 
prefixează ori sufixează un câmp de caractere de lungime fixă. 


ə  LongReadLen controlează lungimea maximă a valorilor dintr-un câmp de 
capacitate mare (BLOB). 


Atributul AutoCommit se poate utiliza numai asupra unui descriptor de bază de 
date. Atributele NAME, NUM_OF_FIELDS şi NUM_OF_PARAMS Sunt specifice unui 
descriptor de interogare, iar PrintError, RaiseError, Warn, ChopBlanks $i 
LongReadLen pot fi utilizate pentru orice tip de descriptor. 


3.4. Exemple 
1. Interogarea unei baze de date 


Ca prim exemplu, ne propunem să scriem un script CGI care să genereze o 
pagină Web conţinând notele la proiecte ale studenților dintr-o anumită grupă. 


Baza de date, denumită studenti, va avea în componență tabela note. Această 
tabelă va fi compusă din câmpurile nume, grupa, adresa şi nota. 


Pentru a crea şi insera în baza de date câteva înregistrări, ne vom folosi de 
clientul mysqi, care va reprezenta interfața cu serverul MySQL (regăsit, ca proces 
în fundal, sub numele mysqld): 


(infoiasi)S mysal 

Welcome to the MySQL monitor. Commands end with ; or Mg. 

Your MySQL connection id is 3 to server version: 3.23.22-beta- 
log 

Type 'help' for help. 


mysql» create database studenti; 
Query OK, 1 row affected (0.00 sec) 


mysql> use studenti 
Database changed 
mysql» create table note | 
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-> nume char (40), 
-> adresa char(40), 
-> grupa integer, 
-> nota integer not null): 
Query OK, 0 rows affected (0.01 sec) 


mysql» insert into note values m" 
-» ("Radu Filip", "socrateGinfoiasi.ro", 2, 10}; 


Query OK, 1 row affected (0.00 sec) 


mysql» insert into note values - 
-> ("Gabriel Enea", "eneagéinfoiasi.ro", 3, 10); 
Query OK, 1 row affected (0.00 sec) 


mysql> insert into note values M 
-» ("Silvana Solomon", "sylvyGinfoiasi.ro", 3, 10); 
Query OK, 1 row affected (0.00 sec) 


mysql» grant usage on studenti.* to nobodyG8localhost; 
Query OK, 0 rows affected (0.00 sec) 


mysql> grant select, insert, delete on studenti.* 
to nobody8localhost; 
Query OK, 0 rows affected (0.00 sec) 
Dupá crearea bazei de date şi a structurii tabelei note, au fost inserate o serie de 
valori corespunzátoare datelor despre studenti si notele lor. 


Pentru ca serverul Web (in mod uzual rulând ca utilizator fictiv nobody) să aibă 
acces la baza de date, vom acorda permisiuni asupra acesteia (de exemplu, pentru 
selecţia, inserarea şi ştergerea de înregistrări) prin intermediul comenzii SQL 


grant. 


Înregistrările existente în baza de date sunt (observați rezultatul execuţiei 
comenzii select): 


mysql» select * from note where nota - 10; 


n--——— e! ———————QQ 4R------- 4------ * 

| nume | adresa | grupa | nota | 
-2---4------ * 

4e----2------------ 4----------—---0-700004007 * 

| Radu Filip | socrate8infoiasi.ro | 2 10 | 

| Gabriel Enea | eneageinfoiasi.ro | 3 | 10 | 

| Silvana Solomon | sylvy9infoiasi.ro | 3] 10 ! 

Enea a aere QU ED M de oare ara a iiti 


3 rows in set (0.00 sec) 

Vom concepe un formular HTML care să permită utilizatorilor să introducă 
numărul unei grupe pentru a afla informaţii despre numele, adresa de e-mail şi nota 
obținută ale studenţilor acelei grupe, listă ordonată după nume. Acest formular 
poate fi următorul (omitem antetul paginii Web): 


< form actionz"afiseaza.pl.cegi" action="GET"> 
«h4 align="right">Lista studentilor: </h4> 
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«p»Grupa doritá: 

«input type="text" names"grupa" /></p> 
«hr size="1* /» 
«div align="center"> ` 

<input type="submit" value-"Afigeazá" /» 
«/div» 
«/form» 


Scriptul CGI va folosi funcţiile definite mai sus şi, în fapt, va trimite serverului 


MySQL comanda: 


select * from note where grupa = $grupa order by nume; 


Variabila grupa va contine numárul grupei dorite de utilizator. 


Codul-sursá al scriptului CGI este următorul: 
$!/usr/bin/perl 


+ afiseaza.pl.cgi 
+ script CGI care afiseaza informatii despre studentii 
4 unei grupe (stocati in studenti.note) 


use CGI qw/:standard/; 


+ ne folosim de subrutinele prezentate mai sus 
require "perl db.pl"; 

$ trimitem antetul HTTP 

print header; 

# preluam informatiile din formular 
# (valoarea campului 'grupa') 
$grupa = paramí'grupa'); 

# completam numele bazei de date 
$db name = "studenti"; 

# actiunile propriu-zise 
&conectare; 

&interogare; 

&afisare; 

&deconectare; 


# subrutinele de interogare si de afisare a datelor 
sub interogare ( 
$SQL = "select * from note 
where grupa - $grupa order by nume;"; 
&executa SQL; 
) . 
sub afisare ( 
8 afiseaza mai intai antetul paginii Web 
print ««HTML; 
«html»«head»«title»Lista studentilor«/title»«/head» 
«body bgcolor="white" text="blue"> 
<h2>Lista studentilor«/h2» 
<table align="center" width="600" border="1"> 
«tr bgcolor-"4CCCCCC" align="center"> 
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<td><b>Nume</b></td> 
<td><b>Adresa</b></td> 
«td»«b»Nota«/b»«/td» 
</tr> 
HTML 


4 rezultatele interogarii le regasim în tabloul 'pointer' 
while (Spointer = $sth-»fetchrow hashref) ( 

$nume = $pointer-»('nume'); 

$adr = $pointer-»('adresa'); 

$nota = $pointer-»('nota'); 

# pentru a afisa corespunzator datele, 

* nu permitem celule vide de tabel 


$nume - " " if ($nume eq ""); 
$adr =" " if ($adr eq ""): 
$nota = " " if ($nota eq ""); 


d$ scriem o linie de tabel 
print ««HTML; 

«tr align="center"> 
«td»«p»$nume«/p»«/td» 
«td»«p»«a href-"mailto:$adr"»$adr«/a»«/p»«/td» 
<tâ><p>$nota</p></tâ> 

</tr> 

HTML 
) 4 final de while 
# afiseaza sfarsitul de pagina Web 
print HTML; 


</table> 

«hr size="1" /» 

«/body»«/htmi» 
HTML 


) 4 final de subrutina 


Am dat posibilitatea de a-i trimite unui student un mesaj prin posta electronicá, 
generând o legătură prin schema mailto. 


Metoda £etchrow hashref() preia datele returnate de serverul de baze de date 
şi le stochează într-un tablou asociativ. Cheile tabloului reprezintă numele 
câmpurilor din baza de date. Pointerul prin care se realizează scanarea tuturor 
înregistrărilor furnizate este reprezentat de variabila pointer. 


2. Inserarea de înregistrări 


În continuare, vom scrie un script care să dea utilizatorului posibilitatea de a 
introduce în baza de date informaţii despre un nou student. Desigur, aceste 
informaţii vor fi furnizate prin intermediul unui formular Web pe partea client, 
fiind stocate apoi pe server. 


Utilizatorul va trebui să introducă numele, adresa de e-mail, grupa şi nota 
studentului. Scriptul Perl va prelua aceste informaţii si va executa următoarea 
comandă SQL: 
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insert into note values ($nume, $adr, $grupa, $nota); precedentul, cu excepția faptului că se va trimite serverului spre execuţie o 


Omitem codul HTML al formularului şi furnizăm în continuare numai sursa 


scriptului: 


4! /usr/bin/peri 


8 adauga.pl.cgi 
+ adauga in baza de date o inregistrare 


use CGI qw/:standard/; 
require "perl db.pi"'; 


4 filtram datele preluate din formular 


$nume = &filter(param('nume')); 

$adr = &filter(param('adresa')); 

$grupa - &filter(param('grupa')); 

$nota = &filter(param('nota')); 

4 validarea 'silentioasa' a datelor 
$nota = 10 if ($nota « 1 or $nota > 10); 


$grupa = 1 if (Sgrupa « 1 or $grupa » 4); 


print header; 
&conectare; 
&inserare; 
&afisare; 
&deconectare; 


# subrutinele auxiliare pentru insertie si afisare 
sub inserare ( 
$SQL = "insert into note values 
('$nume', '$adr', '$grupa', '$nota!);"; 
&executa, SOL; 
H 
sub afisare { 
print ««HTML; 
«html»«head»«title»Inserare de date«/title»«/head» 
«body bgcolor="white" text-"blue'» 
«h2 align-"center"»Datele au fost inserate.«/h2» 
«hr size-"1" /» 
</body> 
</html> 
HTML 
) 


Am realizat şi o validare nepretenfioasá a datelor, considerând că numărul 
grupei aparţine intervalului [1, 4], iar nota nu poate fi decât între 1 şi 10. 


3, Ştergerea unei înregistrări 


Ne propunem acum să ştergem o înregistrare din baza de date, în funcție de 


adresa de e-mail furnizată de utilizator. Scriptul CGI este asemănător cu 


comandă SQL delete: 
4! /usr/bin/perl 


4 sterge.pl.cgi 
4 sterge din baza de date o inregistrare 


use CGI qw/:standard/; 
require "perl db.pl"; 


4 filtram datele preluate din formular 
$adr = S$ENV(QUERY STRING); 

print header; 

&conectare; 

&stergere; 

&afisare; 

&deconectare; 


4 subrutinele auxiliare pentru stergere si afisare 
sub stergere | $ 
$SQL = "delete from note where adresa - 'S$adr'"; 
&executa , SOL; 
) 
sub afisare ( 
print ««HTML; 
«html»«head»«title»Stergere de date«/title»«/head» 
«body bgcolor="white” text="blue"> 
<h2 align="center">Datele au fost sterse.</h2> 
«hr size="1" /> 
</body> 
</html> 
HTML 
J 


Utilizám adresa de e-mail drept cheie principalá deoarece normal ar trebui sá fie 
unică pentru fiecare student în parte. Vom prelua această adresă din şirul de 


interogare atașat URI-ului care ar putea avea următoarea formă: 


http://www. infoiasi.ro/cgi-bin/delete.pl?eneag8infoiasi.ro 


Pentru aceasta, folosind tabloul asociativ ENV, extragem direct valoarea varia- 


bilei de mediu QUERY. STRING. 


4. Prelucrarea documentelor XML 


În cadrul acestui subcapitol vom urmări să prelucrăm documentele XML prin 


intermediul scripturilor Perl, în vederea transformării lor în pagini Web. 
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Fig. 4.5 — Transformarea unui document XML in paginá Web 
prin intermediul unui script Perl 


4.1. Utilizarea analizorului Expat 


Una dintre cele mai facile modalități de a prelucra documentele XML este 
utilizarea analizorului Expat dezvoltat de James Clark, a cárui functionalitate este 
incapsulatá de modulul XML::Parser. Acest modul vá pune la dispoziţie obiectele 
XML::Parser Şi XML: : Parser: :Expat 


Analiza XML este bazată pe evenimente, pentru fiecare tip de nod al arborelui 
asociat documentului XML declanşându-se un anumit eveniment care va trebui 
tratat de o rutină Perl specificată de programator. Astfel, după inifializarea 
analizorului, va trebui să folosim metoda setHandlers pentru a stabili ce funcții 
vor fi apelate pentru fiecare tip de eveniment. 


Cele mai importante evenimente generate de procesorul XML sunt: 
e start — indică apariția tag-ului de început al unui element; 
e End — desemnează apariţia tag-ului de sfârşit al unui element; 


e Char — indică apariția conținutului text al unui element (caracterele de text 
neprocesat dintre tag-ul de început şi cel de sfârşit); 


e Comment — indică apariţia unui comentariu; 


ə proc — desemnează apariţia unei instrucțiuni de procesare «?. . .?>. 


Într-un prim exemplu de utilizare a modulului XML::Parser vom asocia pentru 
evenimentele Start, End gi Char cáte o subrutiná care va fi apelatá la fiecare 
aparitie a evenimentului in cauză, 


Documentul XML biblio.xml Care urmează stochează informaţii despre 
împrumuturile dintr-o bibliotecă: 
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<?xml vefsions"1.0" ?» 
«imprumuturi» 
«imprumut» 
«carte autorz"I.P. Sartre" an="1999"> 
Zidul 
«/carte» 
«client adresa-'mitucGac.tuiasi.ro"» 
Victor Tarhon-Onu 
«/client» 
«/imprumut» 
«imprumut» 
«carte autor="H. Hesse" an="1998"> 
Jocul cu margelele de sticla 
«/carte» 
«client adresa-'stanasaGinfoiasi.ro"» 
Stefan Ciprian Tanasa 
«/client» 
«/imprumut» 
«/imprumuturi» 


Dorim să generám un tabel XHTML cu aceste informaţii, prin transformarea 
documentului XML de mai sus. Vom scrie următorul script Perl, în care vom 
substitui fiecare element XML cu elementele XHTML corespunzătoare (aceste 
substitufii vor fi stocate în tablouri asociative): 


ş! /usr/bin/perl 


+ utilizam modulul XML 
use XML: :Parser; 


& definim tablourile hash de inlocuire a tag-urilor 
+ definim substitutiile de tag-uri de inceput 
$start = ( 

"imprumuturi" => “<table borders V "1NV"»", 

"imprumut" => "<tr>", 

"carte" => "«td»«b2", 

"client" => "<td align=\"center\">" 

): 


& definim substitutiile de tag-uri de sfirsit 
$sfirsit = ( 
"imprumuturi" => "«/table»Mn", 


"imprumut" => "</tr>", 
"carte" => "«/b»c/td»", 
"client" => "</td>" 


); 


+ instantiem analizorul XML 
my $parser = new XML: : Parser (ErrorContext => 2); 
4 setam functiile de prelucrare 
4 a elementelor si continutului lor 
sparser->setHandlers | 
Start => A&procesare_start, - 
+ functia de procesare tag-uri de inceput 
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End => N&procesare sfirsit, 
+ functia de procesare tag-uri de sfirsit 
Char => N&procesare_continut 
# functia de procesare a continutului 
); 
+ afisam antetul HTTP 
print "Content-type: text/htmlWXnin"; 
+ incarcam fisierul si il analizam 
$parser-»parsefile("biblio.xml"); 


+ definim subrutinele pentru prelucrarea 

4 elementelor XML si continutului lor 

sub procesare_start 

{ 
# primul argument este instanta procesorului XML 
my $procesor = shift; 
& al doilea argument este numele elementului 
# corespunzator tag-ului de inceput 
my $element = shift; 
+ afisam codul HTML, folosind tabloul hash 
print $start($element); 

} 

sub procesare_sfirsit 

{ 
# primul argument este instanta procesorului XML 
my $procesor = shift; 
4 al doilea argument este numele elementului 
# corespunzator tag-ului de sfirsit 
my $element = shift; 
# afisam codul HTML, folosind tabloul hash 
print $sfirsit($element]; 

) 

+ rutina de afisare a continutului 

sub procesare continut 

{ 
# am preluat argumentele furnizate 
my ($procesor, $data) = @_; 
+ afisam datele 
print $data; 

) 


Funcţiile asociate evenimentelor de procesare XML vor primi ca argumente 
instanța procesorului Expat si numele elementului curent (pentru evenimentele 
Start şi End) sau conținutul dintre rag-urile de început si cele de sfârşit (pentru 
evenimentul Char). 


Ieşirea scriptului prezentat mai sus este: 
Content-type: text/html 
«table borderz"1"» 


<tr> 
«td»«b» 
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Zidul 
«/b»«/td» 
«td align="center"> 
Victor Tarhon-Onu 
«/td» 
«/tr» 
«tr» 
«td»«b» 
Jocul cu margelele de sticla 
«/b»«/td» 
«td align="center"> 
Stefan Ciprian Tanasa 
«/td» 
</tr> 
</table> 
Analizorul Expat oferă programatorului funcționalități multiple, denumite stiluri 


de procesare. Stilul implicit a fost utilizat în scriptul precedent. Mai pot fi folosite: 
e stilul de depanare Debug; 


e stilul de analiză cu subrutine subs, în care fiecare apariție a unui fag 
distinct va fi tratată de o subrutină purtând acelaşi nume cu elementul 
corespunzător acelui fag, iar pentru tratarea tag-urilor de sfârşit va fi 
invocată o subrutină având numele elementului urmat de caracterul ,, 
(vezi mai jos); 


ə stilul de analiză arborescentă Tree, în care procesorul va returna arborele 
de analiză al documentului XML, fiecare nod al arborelui fiind de forma 
(nume de tag, conținut); 


e stilul de analiză cu obiecte objects care este similar cu stilul Tree, dar se 
vor genera câte un obiect de tip hash pentru fiecare element. 


Stabilirea stilului de procesare se va face la inifializarea analizorului, prin 
intermediul opțiunii style. Constructorul respectiv va putea avea ca argumente şi 
alte atribute de procesare precum: 


ə protocolul de codificare a documentului XML: protocolEncoding (pot fi 
specificate valori, e.g. UTF-8, ISO-8859-1 sau UTF-16); 


e modalitatea de raportare a erorilor: ErrorContext, à cárui valoare este 
numărul de linii care vor fi afișate la apariția unei erori de analiză XML (de 
obicei se preferă valoarea 2); 


ə funcțiile asociate evenimentelor generate de procesorul Expat: Handlers 
(este un tablou asociativ avánd drept chei nume de evenimente si drept 
valori, referinte la subrutinele de tratare a evenimentului respectiv); 
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În continuare vom utiliza stilul de procesare Subs, pentru a putea prelucra 
comod şi valorile atributelor unui element particular. Folosind biblio.xml, ne 
propunem să afisám atât titlul cărților împrumutate, cât şi autorul şi data apariţiei 
(acestea se regăsesc ca atribute ale elementului <carte>). Pentru fiecare element al 
documentului, va trebui să scriem o rutină de tratare a apariției tag-ului de început 
al acestuia. La fel, va trebui să concepem o rutină de tratare a fiecărei apariţii a 
rag-ului de sfârşit. Tot în cadrul acestui exemplu vom vedea cum putem accesa 
valorile atributelor unui element, prin utilizarea unui tablou asociativ. 


Codul-sursă al scriptului este: 
t! /usr/bin/perl 


$ utilizam modului XML 
use XML: :Parser; 


+ numarul de rinduri de tabel 
$rinduri = 0; 
+ instantiem analizorul XML 
my $parser = new XML::Parser(í 

Style => 'Subs', 

* apelare de subrutine pentru fiecare tag 

ErrorContext => 2); 
+ setam functiile de prelucrare 
+ a elementelor si continutului lor 
$parser-»setHandlers( 

Char => N&procesare_continut 

+ functia de procesare a continutului 

); 


$ afisam antetul HTTP . 
print "Content-type: text/htmlinin"; 
* incarcam fisierul si il analizam 
$parser-»parsefile("biblio.xml"); 


+ rutina de afisare a continutului 
sub procesare, continut 
{ 
# am preluat argumentele furnizate 
my ($procesor, $data) = 8 ; 
+ afisam datele 
print $data; 
) 
4 rutinele care vor fi apelate pentru 
+ fiecare aparitie a unui tag de inceput 
sub imprumuturi 
{ 
print "«!-- Generat de Perl -->\n"; 
print "<table align="center!" border=\"1\">"; 


) 
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sub imprumut 
{ 
$rinduri++; 
+ rindurile pare vor avea fundal diferit 
if ($rinduri $ 2 == 0) ( 
print "<tr bgcolorsV"i4CCCCCCN"»"; 
) 
else ( 
print "<tr>"; 
) 
) 
sub carte 
( 
my $procesor - shift; 
my $element = shift; 
+ preluam atributele si le memoram 
4 intr-un tablou asociativ 
while (6_) ( 
my $atribut = shift; 
my $valoare = shift; 
$atribute($atribut) = $valoare; 


) 
# preluam atributele care ne intereseaza 
my Şautor = $atribute('autor'); 


my $aparitie = $atribute('an'); 
print "<td> $autor (Saparitie) <b>"; 
) 
sub client 
( 
print "<td alignsM'centerV"»"; 
H : 
+ rutinele care vor fi apelate pentru 
+ fiecare aparitie a unui tag de sfirsit 
sub imprumuturi_ 
{ 
print "«/table»*An*; 
print "«!-- Final de generare -->\n"; 
) 
sub imprumut_ 
( 
print "</tr>"; 
) 
sub carte_ 
( 
print "«/b»«/td»"; 
) 
sub client, 
( 
print "«/td»"; 
) 


Pentru o procesare XML a unui flux generic 
parsefile() se va utiliza parse ().' 
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de date, în locul metodei 
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4.2. Utilizarea modelului DOM 


Pentru a beneficia de interfețele puse la dispoziţie de DOM (vezi şi capitolul 1), 
vom recurge la modulul XML::DOM, care extinde o serie din funcționalitățile 
procesorului Expat. 


Modulul oferă obiectul XML: : DOM: : Parser, care este derivat din XML: : Parser, 
Vom putea procesa documentele XML conform specificaţiilor DOM -— nivelul 1 
descrise de Consorţiul Web. Un document va fi regăsit în DOM ca instanță a clasei 
Document. Un obiect de tip Document va fi compus din obiecte de tipul Node. Un 
obiect Document va putea include noduri de tip Element, Text Comment şi 
CDATASection, iar un Element va putea avea noduri Attr, Element, Text, Comment 
sau CDATASection. Alte tipuri de noduri nu vor avea nici un descendent. 


Un exemplu în care vom afişa toti autorii cărților împrumutate din bibliotecă : 


(vom folosi tot biblio.xml): 
+! /usr/bin/perl 


use XML: :DOM; 


+ instantiem analizorul 
my $parser - new XML::DOM::Parser; 


+ incarcam fisierul XML 
my $doc = $parser-»parsefile("biblio.xml"); 


+ afisam toate atributele 'autor' ale elementelor «carte» 


+ preluam lista noduri element «carte» 

my $noduri = $doc-»getElementsByTagName("carte"); 

4 numarul de noduri gasite 

my $nr = $noduri-»getLength; 

# pentru fiecare nod gasit, 

# preluam valoarea atributului 

for (my Si = 0; $i < $nr: $i++) 

( 

my $nod - $noduri-»item ($i); 
my $autor = $nod-»getAttribute("autor"); 
print $autor-»getValue . "An"; 


) 


După cum se observă, datorită faptului că modulul este derivat din XML::Parser, 
putem utiliza metodele parsefile() sau parse() pentru a încărca un document 
XML în vederea procesării. 


Modulul XML::DOM oferă câteva metode noi care nu sunt specificate de 
recomandarea DOM a Consortiului Web. Se pot enumera: 


LIMBAJUL PERL 199 


isValidName() verifică dacă numele unui element sau atribut este valid 
conform specificației XML; 


setTagCompression () stabileşte maniera de afişare a elementelor 
declarate vide. Sunt acceptate trei stiluri: 


ə stilul 0 va conduce la afişarea în forma «vid/» sau «vid 
atrz"val"/»j 


e stilul 1 va afişa elementele vide astfel: «vid»«/vid» sau «vid 
atr-'val'»«/vid»; 


e stilul 2 este similar cu stilul 0, dar se va adăuga încă un spatiu 
înainte de „/>” (util pentru a genera cod XHTML spre a fi 
interpretat de navigatoarele mai vechi). 


Implicit, stilul de afişare este stilul 0. 


dispose(] eliminá referințele circulare dintr-o listá NamedNodeMap Sau 
NodeList; 


setTagName () stabileşte numele unui element; 


getEntity() returnează o entitate, programatorul trebuind sá specifice 
numele acesteia; 


getvalue () furnizează valoarea unei entități. 


4.3. Alte module 


Comunitatea programatorilor Perl are la dispozitie o sumedenie de module utile 
pentru diverse procesári asupra documentelor XML. În cele ce urmează vom 
descrie cáteva dintre aceste module: 


XML::Simple oferă o interfaţă foarte simplă pentru citirea şi scrierea de 
documente XML (indicat a fi utilizat pentru procesarea fişierelor de 
configuraţie, a tabelelor de date de mici dimensiuni etc.); 


XML: : Twig permite procesarea rapidă a documentelor XML de dimensiuni 
considerabile; 


XML: :Generator — util pentru generarea de documente XML; 


XML: :Grove oferă acces la date marcate în SGML, XML sau HTML prin 
intermediul tablourilor asociative; 
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e XML::XSLT implementează funcfionalitátile specificatiei XSLT, fiind bazat 
pe XML:DOM; 


e XML::XQL oferă posibilitatea de a realiza interogári asupra documentelor 
XML (vezi şi secțiunea 5.4); 


e  XML::Checker verifică validitatea documentelor XML sau a arborilor 
DOM; 


e XML::EasyOBJ permite prelucrarea documentelor folosind DOM, dar într-o 
manieră mai apropiată de Perl; 


e  XML::RSS permite crearea sau modificarea fişierelor RSS (Rich Site 
Summary) bazate pe RDF (aceste documente sunt folosite pentru crearea 
de descrieri folosite de Netscape Netcenter sau Meerkat (O'Reilly), putând, 
fi regăsite pe situri precum Slashdot ori Freshmeat); 


e XML::Writer oferă posibilitatea de a crea documente XML, într-un mod 
asemănător modulului CGI; 


e  XML::RegExp adaugă extensii XML la expresiile regulate Perl; 


e  DBIx::XML RDB exportă date dintr-o bază de date accesată via DBI si le 
reprezintă în XML (pentru mai multe detalii, vezi secțiunea 5.4). 


Exemple 


Pentru fişierul de configuraţie prezentat în secțiunea 4.3 a primului capitol, 
putem scrie următorul script Perl care va modifica valoarea atributului debugfile a 
elementului «config»: 


4! /usr/bin/perl 
use XML::Simple; 


$ incarcam fisierul 

my $config = XMLin(); 

$ afisam valoarea atributului 'logdir' 

print $config-»(logdir); 

+ afisam a doua adresa IP a serverului 'thor' 
print $config-»(server)-»(thor)-»(address)--[1]; 
# modificam valoarea lui 'debugfile' 


$config->(debugfile) = "/dev/null"; 
+ salvam fisierul XML 
XMLout (); 


LIMBAJUL PERL 201 


Un exemplu de utilizare a modulului XML::Writer pentru a genera prin program 
documente XML: 


î!/bin/peri -w 


use strict; 
use XML: :Writer; 
use IO; 


8 va fi generat fisierul "doc.xml" 
my $doc = new IO::File("»doc.xmi"); 
my $writer = new XML::Writer(OUTPUT => $doc); 


+ generam elementul radacina 
$writer-»startTag("doc", class => "simple"); 
+ generam un element continind doar text 


$writer-»dataElement('title', "As You Like It"); 
$writer-»startTag("section"); 
$writer-»dataElement('title', "Introduction", 


no s» 1, type -» "intro"); 
& inceputul unui paragraf 
$writer-»startTag( "para"); 
$writer-»characters( "a text with"); 
$writer-»dataElement( 'bold', "bold"); 
$writer-»characters( " words."); 
+ sfirsitul paragrafului 
$writer-»endTag( "para"); 
$writer-»endTag(); 
# sfirsitul documentului 
$writer-»endTag(); 
$ am terminat 
S$writer-»end(); 
$doc-»close(); 


5, Studii de caz 


5.1. Interogarea via Web a unei baze de date MySQL 


Vom începe cu un script simplu, care poate fi utilizat pentru căutarea unor 
clienti ai unei organizaţii sau companii stocati într-o bază de date fcs cu 
urmátoarea structurá a unicei tabele ciients: 


CREATE TABLE clients ( 
+ nume client 
name varchar(50) NOT NULL default '', 
# adresa client 
.address varchar(100) NOT NULL default '', 
+ oras 
city varchar(30) NOT NULL default '', 
# cod postal 
zip varchar!(10) NOT NULL default '', 


20 


IN 
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4 telefon (serviciu tehnic) 

tech phone varchar(20) NOT NULL default '', 
# fax (serviciu tehnic) 

tech_fax varchar (20) default NULL, 

4 e-mail (serviciu tehnic) 

tech_email varchar (100) NOT NULL default '', 
# persoana contact (serviciu tehnic) 
tech_contact varchar (50) NOT NULL default '', 
& telefon (serviciu managerial) 

mg phone varchar (20) NOT NULL default '', 

i fax (serviciu managerial) 

mg. fax varchar(20) default NULL, 

4 e-mail (serviciu managerial) 

mg email varchar(100) NOT NULL default '', 

# persoana contact (manager) 

mg contact varchar (50) NOT NULL defauit '' 
TYPEZMyISAM PACK KEYSz1; 


Vom putea insera informafiile de mai jos: 


SERT INTO clients VALUES | 
'Sabin Corneliu Buraga', 
'Str. Berthelot, 16', 
'Iasi', 

'6600', 

'090123456', 
'032000000', 
'mitucGac.tuiasi.ro', 
'Victor Tarhon-Onu', 
'091999999', 
'032111111', 
'stanasaQdinfoiasi.ro', 
'Stefan Tanasa'); 


Aceste două comenzi SQL le vom putea stoca într-un fişier clients. sq1, pentru 


a-l utiliza la crearea şi popularea cu date a bazei de date. 


Sursa scriptului Perl, pe care il vom numi search.pl.cgi, este prezentată in 


continuare (tratarea erorilor se va reáliza exclusiv de către programator, nefiind 


automată): 
&'/usr/bin/perl -w 
use strict; 
+ variabilele referitoare la baza de date 
my $DBHOST = "fcs"; 
my $DBNAME= "fcs"; 
my SDBUSER = "fcs"; 
my $DBPASS = "demonstratie"; 
my S$QUERY; 
. ny ($dbh, $sth, $rc); 
my ($name, $clientname, $client): 
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+ utilizam modulele CGI 
use CGI qw(:standard): 
use CGI: :Carp qw(fatalsToBrowsexr); 


4 preluam numele clientului 
$client=param('nane'); 

4 scriem antetul paginii Web 
print<<" HTML"; 

Content-type: text/html 


<html> 

<bođy bgcolor="white"> 

«form action="search.pl.cgi" methods"post"» 

«table width="90%" bgcolor=" #FFFFFF" border-"1" align="center"> 
<tr><td colspan="5"> i 

HTML 


# utilizam modulul DBI 
use DBI; 
$dbh = DBI->connect ("dbi :mysql:dbname=$DBNAME; host=$DBHOST", 
"SDBUSER", "SDBPASS", 
( PrintError => 0, 
RaiseError => 0, 
AutoCommit -» 1)) 
|| die("Cannot connect to $DBNAME: $DBI::errstr"); 

& Ne conectam la baza de date S$DBNAME, de pe serverul SDBHOST 
utilizind 
4 username-ul $DBUSER si parola $DBPASS, utilizind driverul mysql. 
4 Pregatim de executie interogarea SQL 
$sth = $abh->prepare ("SELECT name FROM clients ORDER BY name") 

B die "Canot prepare $DBI::errstrMn"; 
$rc = $sth-»execute() 

|| die "Cannot execute $DBI::errstrMn"; 
4 Selectam toti clientii din baza de date 
+ pentru a-i afisa intr-un formular de 
# unde vor fi selectati in vederea aflarii 
4 diferitelor informatii despre ei 
print << "HTML"; 
«center» 
<b>Nume client«/b»: «select name-"name"» 
HTML 

while (($clientname)-$sth--fetchrow array)í 
print << "HTML"; 
«option values"$clientname"»$clientname«/option» 
HTML 
) 


print «<< "HTML"; 

</select> 

«input names"enterbutton" type-"submit" values"Afiseaza"» 
«/center» 

«/td» 

</tr> 

HTML 
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Acest cgi poate fi apelat fara parametri, caz in care va afisa 
un meniu din care sa se selecteze un eventual client. 
Daca scriptul primeste un sir in parametrul "name" atunci vor fi 
afisate informatii despre acel client (daca exista). 
(defined($client) && $client ne "")( 
$sth = $dbh-»prepare("SELECT address, mg contact, 
mg email, mg phone, 
tech contact, tech email, 
tech phone FROM clients WHERE name=?") 
"|| die "Cannot prepare : $DBI::errstrin"; 
$rc = $sth-»execute($client) 
|| die "Cannot execute : $DBI::errstrin"; 
# memoram in variabile datele returnate de server 
my ($addres,$persdecizienam,$persdecemail,$persdecphone, 
S$adminname,S$adminemail,$adminphone, 


$salesname, $salesemail, $salexphone) = $sth-»fetchrow array; 

# verificam daca sunt informatii nule 
$addres-" " . 

if (!defined($addres) || $addres eq ""); 
$persdecizienam-" " 

if (!defined($persdecizienam) || $persdecizienam eq ""); 
$persdecphone=" " 

if (!defined($persdecphone) || $persdecphone eq *"); 
$persdecemail-" " 

if (!defined($persdecemail) || $persdecemail eq ""); 
$adminname-" " 

if (!defined($adminname) || $adminname eq "'"); 
$adminphonez" " 

if (!defined(Sadminphone) || $adminphone eq ""); 
$adminemailz" " 

if (!defined($adminemail) || $adminemail eq ""); 


print «« "HTML"; 


<tr><td colspan="5" align="center"> 


<b> 
Client: $client<br> 
Adresa: $addres 


</b> 
</tâ></tr> 


<tr> 


<th>Departanent< /th> 
<th>Nume Persoana</th> 
<th>Numar Telefon</th> 
«th»E-mail«/th»«/tr» 


<tr> 


«td align-"left"»Management«/td» 

«td align="center">$persdeci zienam</tâ> 
«td align="center" >$persâecphone</tâ> 

«td align="center">$persdecemail</tâ></tr> 


<tr> 


«td align="left">Servicul tehnic«/td» 
«td aligne"center"»$adminname«/td» 

«td align-"center"»$adminphone«/td» 

«td alignz"center"»$adminemail«/td»«/tr» 
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HTML 
) 


print «« "HTML"; 
«/table»«/form»«/body»«/html» 
HTML 


i am afisat informatiile, putem iesi din aplicatie 
$sth-»finish(); 
$dbh-»disconnect; 


5.2. Realizarea unei aplicatii de inventar folosind PostgreSQL 


Aplicația Agenda, pe care o vom prezenta mai jos, a fost scrisă cu scopul de a 
fine un inventar al diverselor echipamente/obiecte. Prin folosirea câmpului 
Observatii se poate construi în timp un „drum” al respectivului obiect, o istorie a 
împrumuturilor sale la diverse persoane/organizații. Aplicația permite adăugarea şi 
ştergerea de echipamente, plus modificarea informațiilor deja existente în baza de 
date. Pentru stocarea datelor se va utiliza sistemul de gestiune a bazelor de date 
PostgreSQL. 


Baza de date poartă numele fcs. Vom utiliza tabela echipamente având 
următoarea structură: 


-- Name: echipamente Type: TABLE Owner: fcs 
CREATE TABLE "echipamente" ( 
+ numele echipamentului 
"echipament" character varying(80), 
+ modelul echipamentului 
"model" character varying(80), 
4 seria echipamentului (cheie primara) 
"serie" character varying(80), 
+ localitatea 
"oras" character varying(80), 
# persoana care l-a predat 
"predat" character varying(50), 
+ persoana care l-a primit 
"primit" character varying(50), 
# actul insotitor 
"act insotitor" character varying(100), 
* data imprumutului 
"data" date, 
# diverse observatii 
"observatii" text, 
# proprietarul echipamentului 
"proprietar" character varying(80), 
+ custodele echipamentului 
"in, custodie" character varying(80), 
# numarul de inventar 
"numar inventar" character varying(50), 
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i adresa 
“locatie” character varyingí100) 
br ; 
Drept cheie primară se va considera seria unui echipament, ea trebuind să fie 
unică, 


Aplicația va consta din mai multe scripturi Perl pentru a realiza operațiile uzuale 
asupra bazei de date prezentate mai sus. Primul script invocat este agenda. cgi, 
folosit ca interfață principală cu utilizatorul pentru a realiza căutarea sau adăugarea 
de echipamente în baza de date, executându-se find, hardware info.cgi Sau 
add hardware info.cgi.  Pentru  modificarea (actualizarea) informațiilor 
referitoare la un echipament va fi rulat modify hardware info.cgi, iar 
responsabil pentru ştergerea unui echipament va fi scriptul 
delete_hardware_info.cgi. Acest script va cere o confirmare din partea 


utilizatorului, eliminarea efectivă a unei înregistrări fiind realizată de 


purge hardware info.cgi. 


Sursa scriptului agenda . cgi este următoarea: 


4! /usr/bin/perl 
use strict; 


use DBI; 
use CGI 'param!'; 


my sprint_current_month=param('print_current_month! ) ; 
+ afisarea antetului paginii Web 
print "Content-type: text/html\n\n"; 
print '«html»«head»«title»Evidenta echipamentelor«/title»«/head» An"; 
print "<body bgcolor=white alinksblue vlink=blue>in"; 
# timpul curent 
my ($sec, $min, $hour, 

$mday, $mon, $year, 

$wday, $yday, Sdaylghtsave) 

- localtime; 


$year += 1900; 


Smon++; 

$mon = "0" . $mon if ($mon < 10); 
$mdayzs"0" . $mday if ($mday«10); 
my $today = "$year-$mon-$mday"; 


+ afisarea formularelor pentru cautare/adaugare/modi ficare 
print ««"END"; 
«center»«h2»Evidenta echipamentelor pina la $today«/h2»«/center» 


«table cellspacingsi border-i align=center> 
<tr><th>Adauga informatii echipamente«/th» 
«th»Cauta echipament«/th»«/tr» 

«tr» 

«td» 


207 


DANI NN RE A Le M or no eo not une ee ae e 


«table align=center cellspacingsl border-i» 
<form action="add_hardware_info.cgi" method="post" > 
«tr» 
«tá align=left>Numar inventar:«/td» 
«td align=center> 
«input type=text: size=15 name=numar_inventar> 
</td> 5 
«/tr» 
«tr» E E 
«td alignsleft»Data:«/td» 
«tà align=center> 
«input typestext size=10 
name=data values"$today'» 
«/td» 
</tr> 
<tr> 
«td align=left>Nume echipament: </tâ> 
«td align=center> 
«input type-text size=20 name=echipament> 
«/td» 
«/tr» 
«tr» 
«td align-left»Model echipament:«/td» 
«td align=center> 
«input typeztext size=20 namesmodel» 
«/td» 
«/tr» 
«tr» 
«td alignsleft»Serie echipament:«/td» 
«td align=center> 
«input type-text size=25 namesserie» 
«/td» 
«/tr» 
«tr» 
«td align-left»Predat de:«/td» 
«td align=center> 
«input typestext size=30 name-predator» 
</tå> 
</tr> 
<tr> 
«td align=left>Primit de:«/td» 
«td align=center> 
«input type=text size=30 name=primitor> 
«/td» 
«/tr» 
«tr» 
«td align=left>Proprietar:</td> 
«td align=center> 
«input typeztext size=30 name=proprietar> 
«/td» 
«/tr» 
<tr> 
«td align=left>In custodie la:</tâ> 
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«input typeztext size=30 name-in custodie» 
«/td» 
«/tr» 
«tr» 
<td align=left>Act insotitor:«/td» 
«td align=center> 
«input type-text size-20 namezact» 
«/td» 
«/tr» 
«tr» 
«td alignzleft»Oras:«/td» 
«td align-center» 
«input type-text size-20 name-oras» 
«/td» 
«/tr» 
«tr» 
«td alignzleft»Locatia:«/td» 
«td align=center> 
«input type-text size=30 name=locatie> 
«/td» 
«/tr» 
«tr» 
«td alignzsleft»Observatii:«/td» 
«td align=center> 
«textarea rows=3 cols=30 namezobservatii> 
</textarea> 
«/td» 
«/tr» 
«tr» 
<td align=right colspan-2» 
<input type=submit value="Adauga"> 
</td> 
</tr> 


</form> 
</table> 
</td> 
<td> 
<table align=center cellspacing=1 borđer=1> 
«form action-"find hardware info.cgi" method="post" > 
«tr» 
«td align-left»Numar inventàr:«/td» 
«td align=center><input type-text size=15 
name-numar inventar»«/td» 
«/tr» 
<tr> 
«td align-zleft»Data:«/td» 
«td align=center> 
«input type-text size=10 
name=data value="$year-$mon"> 
</td> 
</tr> 
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<tr> 
«td align=left>Nume echipament :</td> 
<td align=center> 
<input type=text size=20 name=echipament> 
«/td» 
«/tr» 
<tr> 
«td align-left»Model echipament:«/td» 
«td align=center> 
«input type-text size-20 name=model> 
«/td» 
</tr> 
«tr» 
«td align-left»Serie echipament:«/td» 
«td align=center> 
«input typestext size=25 name=serie> 
«/td» 
</tr> 
<tr> 
«td align-left»Predat de:«/td» 
«td align-center» 
«input type-text size=30 name=predator> 
«/td» 
«/tr» 
<tr> 
«td align=left>Primit de:«/td» 
«td align=center> 
«input typestext size-30 name-primitor» 
</td> 
</tr> 
<tr> 
«td align=left>Proprietar:</td> 
«td align=center> 
«input type-text size=30 name-proprietar- 
«/tá» 
«/tr» 
«tr» 
«td align-left»In custodie la:«/td» 
«td align=center> 
«input type-text size-30 name-in custodie» 
«/td» 
«/tr» 
«tr» 
«td align=left>aAct insotitor:«/td» 
«td align=center> 
«input type-text size-20 name-act» 
«/td» 
</tr> 
<tr> 
«td alignsleft»Oras:«/td» 
«td align=center> 
«input type-text size-20 name=oras> 
«/tà» 
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</tr> 
<tr> 
«td alignsleft»Locatia:«/td» 
«td align=center> 
«input type-text size=30 name-locatie» 
«/tdà» 
«/tr» 


<tr> 
«td alignzleft»Observatii:«/td» 
«td align=center> 
«textarea rows=3 cols=30 name-observatii» 
«/textarea» 
«/td» 
«/tr» 
<tr> 
«td align=right colspan=2> 
«input type=submit values"Cauta"» 
«/td» 
«/tr» 


«/form» 

«/table» 
«/td» 
«/tr» 
«/table» 
END 


print "«hr»Mn"; 


my $this, month-"$year-$mon"; 
+ se va afisa lista echipamentelor din luna curenta? 


if (!defined($print current, month) E $print current month eq "yes") 


( 
print equip($this month); 
) eise ( 
print equip(); 
H 
print "<hr>\n"; 
# termina pagina Web 
print "«/body»«/html»Mn"; 


+ subrutina pentru afisarea listei echipamentelor 
sub print_equip ( : 
my $datepattern-$ [01]; 
my $DBNAME=" fcs"; 
my $DBHOST="fcs"; 
my $DBPASSWD-"demonstratie"; 
my ŚDBUSER=" fcs"; 
i conectare la baza de date 
my $dbh=DBI->connect ("dbi : Pg: dbname=$DBNAME ; host=$DBHOST", 
"ŠDBUSER", "SDBPASSWD", 
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( RaiseError => 0, 
PrintError => 0, 
AutoCommit => 01); 
& tratarea erorilor de conectare 
my $errz$DBI::errstr; 
if (defined($err) && Serr ne "") ( 
print "«center»Cannot connect to database $DBNAME on host 


$DBHOST:, $err«/center»An"; 


print "«/body»«/html»WMn"; 
exit; 
) 
& pregatirea interogarii SQL 
my $querys"SELECT data, echipament, model, 
serie, predat, primit, act, insotitor, 
oras, observatii, proprietar, 
in, custodie, numar inventar, 
locatie FROM echipamente"; 
# exista si data? 
if (defined(Sdatepattern) && $datepattern ne Ey ct 


$query.s" WHERE data::timestamp-'$datepattern'"; 


H 
my $sths$dbh-»prepare($query); 
my $rc=$sth->execute; 
my Serr; 
if (!defined($rc) || $rc ea "") ( 
S$errz$DBI::errstr; 
print "ecenter»Cannot fetch data from $DBNAME on $DBHOST: 
S$err«/center» ^n"; 
print "z/body»«/html»NMn"; 
return; 
H 
+ afisarea datelor returnate de server 
my $tabletitle - "Lista echipamente"; 
my $tabletitlel; 
my $tabletitle2; 


$tabletitle2 - $tabletitlel - $tabletitle; 
if (defined ($âatepattern) || saatepattern ea "") ( 
$tabletitle2 .- " incepind cu $year-$mon"; 


$tabletitle2 = "<a nref-V'agenda.cgi?print current month-yesV'? 


$tabletitle2 </a>"; i 
$tabletitlel = "«font size=+1>" . $tabletitlei . "«/font»Mn"; 


) eise ( 
$tabletitlel .- " incepind cu $datepattern"; 
$tabletitle2 = "<a href-V'agenda.cgi?print current month-noV'? 
$tabletitle2 </a>"; 
$tabletitlel = "<font size=+1>" . $tabletitlel . "«/font»Mn"; 


) 


print "ecenter»$tabletitlel«/center» Mn; 
print "ecenter»$tabletitle2«/center» n" ; 
print "<table align=center porderzi widths40$» Mn"; 
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my $num=$sth->rows; 
+ nu exista echipamente 
if ($num «2 0 ) ( 


print "«center»Nu exista nici un echipament.«/center» An"; 


$sth-»finish; 
$dbh-»disconnect; 
return; 


) 


my $recordsz0; 
$ retinem inregistrarile returnate 
my Gretz$sth-»2fetchtow array; 


do ( 

my $data - $ret[0]; 
my Sechipament = $retí1]; 
my $model = $ret[2]; 
my $serie - $ret[3]: 
my $predator = $ret[4]; 
my $primitor = $ret[5]; 
my $act = $ret[6]; 
my $oras = $ret[7]; 
my $observatii = $ret[8]; 
my $proprietar - $ret[9]; 
my $in custodie- $ret!10] 
my $numar, inventar 

- $ret[11]; 
my $locatie = Sret[12]; 
if ($records$2 == 0) { 

print "«tr» Mn"; 
} 
print <<"END"; 
<td> 


«table cellspacing-1 border-1» 
«form actions"modify hardware info.cgi" methods'post"» 
<tr> 

«td align=left>Numar inventar:«/td» 

«td align=center> 

«input type-text name-numar inventar 
size=15 value-"$numar inventar"» 

«/td» 
</tr> 
<tr> 

«td align-left»Data:«/td» 

«td align=center> 

«input type-text name-data 
Size-10 value-"$data"» 

«/td» 
«/tr» 
«tr» 

«td alignzleft»Nume echipament:«/td» 

«td alignzscenter»$echipament«/td» 
«/tr» 
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«tr» 
«td align=left>Model echipament:«/td» 
«td align=center>$model< /td> 
</tr> 
<tr> 
«td align=left>Serie echipament: </td> 
«td align=center>$serie</tâ> 
«input type-"HIDDEN" name="serie" value="$serie"> 
</tr> 
«tr» 
«td align-left»Predat de:«/td» 
«td align=center> 
«input typeztext size=30 
name-predator value="$predator"> 
«/td» 
«/tr» 
«tr» 
«td align-left»Primit de:«/td» 
«td align=center> 
«input type-text size=30 
name-primitor value-"$primitor"» 
</td> 
</tr> 
<tr> 
<td align=left>Proprietar:</td> 
<td align=center> 
«input type-text size=30 
name=proprietar value-"$proprietar"» 
«/td» 
«/tr» 
<tr> 
«td align-left»In custodie la:«/td» 
«td align=center> 
«input type=text size=30 
name-in custodie value="$in_custodie"> 
«/td» 
«/tr» 
<tr> 
«td align-left»Act insotitor:«/td» 
«td align-center» 
«input type-text size-20 
name-act value-"$act'» 
«/td» 
«/tr» 
«tr» 
«td align-left»Oras:«/td» 
«td align=center> 
«input type-text size-20 
name-oras value="$oras"> 
«/td» 
</tr> 
<tr> 
«td align=left>Locatia:</tâ> 
«td align=center> 
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«input typestext size=20 
name-locatie value="$locatie“> 

«/td» 
«/tr» 
«tr» 

«td alignsleft»Observatii:«/td» 

«td alignzscenter»$observatii«/td» 

«input type-HIDDEN 

name-observatii values"$observatii"» 

</tr> 

<tr> 
«td align=left>Adauga observatii:«/td» 

«td align=center> 
«textarea rowsz3 cols-30 
name-observatiiplus» 
«/textarea»«/td» 
«/tr» 
«tr» 
«td alignzleft> 
«input type=submit value="Modifica”> 
«/td» 

«/form» 

«form action-"delete, hardware info.cgi" method="post"> 
«input type=hidden name=serie value-"$serie'» 
«td align-right» 

«input type=submit value="Sterge"> 


«/td» 
«/form» 
</tr> 
</table> 
END 
if ($records%2 == 0) { 
print "</tr></td>\n"; 
} else { 
print "«/td»Mn"; 
} 
$records++; 


} while (8ret-$sth-»fetchrow array); 

print "</table>\n"; 

# terminarea interogarii, inchiderea conexiunii 
$sth-»finish; 

$dbh-»disconnect; 
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Fig. 4.6 — Capturá-ecran a interfeţei scriptului 


Căutarea de echipamente va fi realizată de scriptul £ind hardware info.cgi 
(interogarea va fi construită dinamic, în funcție de valorile câmpurilor completate 
de utilizator): 

4! /usr/bin/perl 
use strict; 


use CGI 'param'; 


# preluam valorile campurilor formularului 


my $data = param('data'); 

my $echipament = param('echipament'); 
my $model = param('model'); 

my $serie = param('serie'); 

my $predator - param('predator'); 
my $primitor = param('primitor'); 
my Sact - param('act'); 

my $oras - param('oras'); 

my $observatii = param('observatii'); 


my $proprietar = param('proprietar'); 
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my $in custodie - param('in custodie'); 
my $numar inventar 

= param('numar inventar'); 
param('locatie'); 


u 


my $locatie 


+ vom cauta datele, folosind mai multe criterii 
my $firstadd = 1; 

# cererea initiala ; 

my $query - "SELECT data, echipament, model, 
serie, predat, primit, 

act insotitor, 

oras, observatii, proprietar, 
in custodie, numar inventar, locatie 
FROM echipamente"; 

# aceasta este o interogare generica; 

$ pe masura identificarii cheilor dupa care 

+ se face cautarea va fi modificata periodic. 

my $subquery-""; 


* 


my $tmpq=""; 
if (defined($data) && $data ne "") ( 
$tmpq = "data::timestamp-'$data'"; 
if ($firstadd eq "1") ( 
$subquery .- " WHERE " . Stmpa; 
$firstadd - 0; 
) else ( 
$subquery .- " AND " . $tmpq; 
) 
) 
if (defined(Sechipament) && $echipament ne "") ( 
Stmpa = "echipament = '$echipament'"; 
if ($firstadd eq "1") ( 
$subquery .= " WHERE " . Stmpa; 
$firstadd = 0; 
) eise ( 
$subquery .- " AND " . $tmpq; 
) 
) 
if (defined($serie) && $serie ne "") { 
$tmpq = "serie = '$serie'"; 
if ($firstadd eq "1") ( 
$subquery .= " WHERE " . $tmpq; 
$firstadd = 0; 
) else | 
$subquery .- " AND " . $tmpq; 
) 
) 
if (defined($predator) && $predator ne "") ( 
$tmpq = "predator-*'$predator'"; 
if ($firstadd eq "1") 
$subquery .= " WHERE " . $tmpq; 
S$firstadd = 0; 
) else ( A 
$subquery .= " AND " . $tmpq; 


13 
H 
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) 
if (defined($primitor) && $primitor ne "") ( 
Stmpg = "primitor-*'S$primitor'"; 
if ($firstadd eq "1") ( : 
$subquery .- " WHERE " . $tmpq: 
$firstadd = 0; 
) eise ( 
$subquery .- " AND " , $tmpq; 
) 
) 
if (defined($proprietar) && $proprietar ne "") ( 


$tmpqz-"proprietar-*'$proprietar'"; 
if ($firstadd eq "1") ( 


$subquery .- " WHERE " . $tmpq: 
S$firstadd = 0; 
) else { 
$subquery .- " AND " . $tmpq; 
) 
) 
if (defined($in custodie) && $in custodie ne "") ( 


$tmpg-"in, custodie-*'S$in custodie'"; 
if ($firstadd eq "1") (. 


$subquery .- " WHERE " . $tmpq; 
$firstadd = 0; 
) else { 
$subquery .- " AND " . $tmpq; 
) 
) 
if (defined($act) && $act ne "") ( 


$tmpq-"act insotitor-z'$act'"; 
if ($firstadd eq "1") ( 


$subquery .- " WHERE " . $tmpq; 
$firstadd = 0; 
) else ( 
$subquery .- " AND " . $tmpq; 
) 
) 
if (defined($numar_inventar) && $numar inventar ne "") ( 


$tmpq-"numar inventar-*'$numar inventar'"; 
if ($firstadd eq "1") ( 


$subquery .- " WHERE " . $tmpq; 
$firstadd = 0; 

) else { 
$subquery .= " AND " . $tmpq:; 


H 
j 
if (defined($oras) && $oras ne "") ( 
$tmpq-"oras-*'$oras'"; 
if ($firstadd eq "1") ( 
$subquery .- " WHERE " . $tmpa; 
$firstadd = 0; 
) else ( 
$subquery .- " AND " , $tmpg; 
) 
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) 

if (defined($locatie) && $1ocatie ne "") { 
$tmpg-"locatie-*'$1ocatie'"; 
if ($firstadd eq *1") ( 


$subquery .- " WHERE " . Stmpq: 
$firstadd = 0; 
) else | 
$subquery .- " AND * . $tmpq: 
H 
H 
if (defined($observatii) && $observatii ne "") ( 
$tmpqz"observatii-*'$observatii'"; 
if ($firstadd eq "1") ( 
$subquery .- " WHERE " . $tmpq; 
$firstadd =.0; 
) else ( 
$subquery .= " AND " . $tmpq; 
) 
) 


d$ s-au adaugat mai multe conditii de cautare 
4 la interogarea initiala 
$query.=$subquery if (definea ($subquery) && $subquery ne E 


4 afisam rezultatele cautarii 
print "Content-type: text/htmlinin”; 


print "«html»«head»«title»Rezultat cautare«/title»«head» Mn"; 
print "<body bgcolor=white alink-biue vlinksblue» Wn"; 
print "ecenter»«font size-:1»«font color=blue> 
Rezultat cautare</font></font> 
</center>in"; 
print "<br>\n"; 


use DBI; 


my $DBNAMEz"fcs"; 
my $DBHOST="fcs"; 
my $DBPASSWD-"demonstratie"; 
my SDBUSER-"fcS"; 
# conectarea la serverul PostgreSQL 
my $dbh = DBI-»connect ("dbi:Pg:dbname-$DBNAME;hostz$DBHOST", 
"S$DBUSER", "$DBPASSWD", 
(RaiseError => 0, 
PrintError => 0, 
AutoCommit => 1}); 
à Ne conectam la baza de date SDBNAME aflata pe serverul $DBHOST 
utilizind 
4 userul $DBUSER si parola $DBPASSWD. Aceasta baza de date este una 
+ PostgresSQL si ca urmare folosim driverul Pg din interfata DBI. 
+ Daca la conectare nu s-au inregistrat erori, atunci functia de 
conectare 
4 va returna un obiect Database Handler nenul 
4 verificam erorile survenite 


my Şerr=$DBL::errstr; 

if (defined(S$err) && $err ne "") ( 
print "«center»Cannot connect to database 

SDBNAME on host $DBHOST: $err«/center» An"; 

print "«/body»«/html»An"; 
exit; 

) 

my $sth = Sdbh-»prepare($query):; 

+ executam interogarea 

my $rc = $sth-»execute; 


my Şerr: 
if (!defined($rc) || $rc eq "") ( 
S$err = SDBI::errstr; 
print "«center»Cannot fetch data from 
database S$DBNAME on host $DBHOST: $err«/center»^An"; 
print "«/body»«/html»Mn"; 
exit; 
) 
my Bret; 
my $records = 0; 
my Bret = $sth-»fetchrow array;. 
my ȘNrows; 
+ nu s-a gasit nimic 
if ($8ret < 0) ( 
print "«center»Nu a fost gasit nici un echipament«/center» Wn"; 
print "</body></html>in"; 
$sth-»finish; 
$dbh-»disconnect; 
exit; 
) else | 
i afisam inregistrarile gasite 
$nrows = S$sth->rows; 
if ($nrows > 1) ( 
print "<center><font sizezs«l»«font color=blue> 
Am gasit $nrows echipamente care indeplinesc 
conditiile de cautare. 
«/font»«/font»«/center»«br»"; 
) else ( 
print "<center><font size=+1><font colorsblue» 
Am gasit un singur echipament 
«/font»«/font»«/center»«br»"; 


) 


) 
print "<table align=center border-i width-40$»2Mn"; 
do ( 
+ preluam in variabile locale informatiile gasite 
my $data = $ret[0]: 
my $echipament = $ret[1]; 
my $model = Şret[2]; 
my Sserie = $ret[3]; 
my $predator - $ret[4]; 
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my $primitor = $ret(5]: 
my $act - $ret[6]; 
my $oras = Şret(7); 


my $observatii = $ret[8]; 
my $proprietar = $ret[í9]; 


$in custodie = $retí10]; 
$numar inventar- $ret[11]; 
$1locatie = Şret[12]; 


if (Srecords$2 == 0) ( 
print "<tr>\n"; 
) 
* se permite si modificarea/stergerea informatiilor 
print <<"END"; 
«td» 
«table align=center cellspacing=l border-1» 
«form actionz"modify hardware info.cgi" method-"post"» 
«tr» 
«td align=left>Numar inventar:«/td» 
«td align=center> 
«input type-text name-numar inventar 
size=15 value-"$numar, inventar"» 
«/td» 
«/tr» 
«tr» 
«td align=left>Data:</td> 
«td align=center> 
«input type-text name=data 
size=10 value="$data"> 
«/td» 
</tr> 
«tr» 
«td align=left>Nume echipament:«/td» 
«td align=center>$echipament< /td> 
</tr> 
<tr> 
«td align=left>Model echipament: </tâ> 
«td alignszcenter»$model«/td» 
«/tr» 
«tr» 
«td align=left>Serie echipament:«/td» 
«td align=center>$serie</td> 
«input type-"HIDDEN" name-"serie" value-"$serie"» 
«/tr» 
«tr» 
«td align-left»Predat de:«/td» 
«td align=center> 
«input type-text size=30 
name-predator value="$predator"> 
«/td» 
</tr> 
<tr> 
«td align=left>Primit de:«/td» 
«td align=center> 
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<input type-text size-30 
name=primitor value-"$primitor"» 
</td> 
</tr> 
«tr» 
«td align-left»Proprietar:«/td» 
«td align=center> 
«input type-text size-30 
name-proprietar value-"$proprietar"» 
«/td» 
«/tr» 
«tr» 
«td align-left»In custodie la:«/td» 
«td align=center> 
«input type-text size-30 
name-in custodie value-"$in custodie"'» 
«/td» 
</tr> 
<tr> 
«td align-left»Act insotitor:«/td» 
«td align-center» 
«input type-text size-20 
name-act value="$act"> 
«/td» 
«/tr» 
«tr» 
«td align-left»Oras:«/td» 
«td align-center» 
«input type-text size-20 
name-oras value="$oras"> 
</td> 
</tr> 
<tr> 
«td align-left»Locatia:«/td» 
«td align-center» 
«input type-text size-20 
name-locatie value-"$locatie"» 
«/td» 
«/tr» 
«tr» 
«td align-left»Observatii:«/td» 
«td align-center»$observatii«/td» . 
«input type-HIDDEN name="observatii" value="$observatii"> 
«/tr» 
«tr» 
«td align-left»Adauga observatii:«/td» 
«td align-center» 
<textarea rows=3 cols-30 
name-observatiiplus»«/textarea» 
«/td» 
</tr> 
<tr> 
«td align=left> 
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«input type-submit valuez"Modifica"» 
«/td» 


</form> | ; 
<form actions"delete hardware info.cgi" method="post"> 


«input type=hidden name-serie value-"$serie'» 
«td align=right> 
«input type-submit values"Sterge'» 
«/td» 
«/form» 
«/tr» 
«/table» 
END 
if ($records$2 == 0) ( 
print "«/tr»«/td»WMn"; 
) eise ( 
print *«/td»Mn"; 
H 
$recorâs++; 
) while (8ret = $sth->fetchrow_array) ; 
print "</table>in"; 
print "«hr»«br»«center» 
«a href-X"/agenda/M"»Inapoi la pagina principala.«/a» 
«/center»Mn"; 


print "«/body»«/html»An"; 
4 am terminat 
$sth-»finish; 
S$dbh-»disconnect; 
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Numar 
inventar: 


die 
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P 
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Proprietar: Sabin Buraga 


i 
i i 


H 
| 
i 
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[AC | , 

jinsotitor: — | JBZ 32311/2002 
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i 


“Aceasta este o inregistrare detest `; 
„Ca sa vedem daca totul e ok. 
Deci e ok, 


! 
i 
| 
i 


Observatii: 


Fig. 4.7 — Afişarea rezultatelor căutării 


Descriem în continuare scriptul CGI folosit la adăugarea de noi înregistrări în 
baza de date. Acest script are numele aaa_haraware_info.cgi şi sursa lui este: 


t! /usr/bin/perl 
use strict; 


use CGI 'param'; 


+ preluam informatiile din formular 


my $data = param('data'); 
my $echipament = param('echipament'); 
my $model = paramí'model'); 
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my $serie = param('serie'); 


my $predator 
my $primitor 


= param('predator'); 
= param('primitor'); 


my $act - param('act'); 

my Șoras - param('oras'); 

my $observatii = param('observatii'); 

my $proprietar = param('proprietar'); 

my $in custodie = param('in custodie'); 
my $numar, inventar- param('numar, inventar'); 
my $1locatie = param('locatie'); 


+ scriem antetul paginii 


print 
print 
print 
print 


"Content-type: text/htmlinin"; 

"<meta http-equiv=\"refresh\" content-V"3; url=/agenđa/\">\n"; 
"«html»«head»«title»Adaugare echipament</title></heađ>\n"; 
"<body bgcolor=white alink=blue vlink=blue>\n"; 


# preluam timpul curent (al serverului) 
my ($sec, $min, $hour, 
$mday, $mon, $year, 
$wday, $yđay, $daylghtsave) = localtime; 
$year += 1900; 
$mon++; 


$mon = 


$mday 


= "0" 


"0" , $mon if ($mon < 10); 
$mday if ($mday « 10); 


my $today = "$year-$mon-$mday"; 


if (!defined($data) || $data eq "") ( 
$data = $today; 


} 


+ verificam daca fost introduse datele 

if (!defined($serie) || $serie eq '") ( 
print "«center»Nu ati introdus seria«/center» 
print "«/body»«/html» An"; 


exit; 

) 

if (!defined($oras) || $oras eq "") ( 
$oras=" Iasi"; 

} 

if (1defined($numar inventar) || $numar inventar eq "") ( 
print "«center»Nu ati introdus nr. de inventar!«/center»MAn"; 
print "«/body»«/html» An"; 
exit; 

) 


+ omitem o parte din teste 


use DBI; 


my $datepattern-$ [0]; 

my $DBNAME-"fcs"; 

my $DBHOST-"fcs"; 

my SDBPASSWD-"demonstratie"; 
my SDBUSER-"fcs"; 

# ne conectam la baza de date 
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my $dbh = DBI->connect ("dbi : Pg: dbname=$DBNAME ; host=$DBHOST" , 
"SDBUSER", "$DBPASSWD", 
(RaiseError => O0, 
PrintError => 0, 
AutoCommit => 0)): 
my $err-z$DBI::errstr; 
# au aparut erori? 
if (defined($err) && Serr ne "") ( 
print "<center>Cannot connect to database 
$DBNAME on host $DBHOST: $err«/center» Mn"; 
print "«/body»«/html» An"; 
exit: 
) 
# pregatim comanda de inserare 
i (folosim o interogare parametrizata) 
my $sth = $dbh-»prepare("INSERT INTO echipamente 
(echipament, model, serie, oras, 
predat, primit, act insotitor, 
data, observatii, proprietar, 
in_custodie, numar, inventar, locatie) 
values (?,?,?,?,2,?,2,?,2,?,2,?,?) ") i 
my $rc = $sth-»execute($echipament, $model, $serie, 
soras, $predator, $primitor, $act, 
$data, $observatii, $proprietar, 
$in custodie, $numar inventar, $locatie); 
4 verificarea erorilor 
if (!defined($rc) || $rc eq "") í 
Serr-$DBI::errstr; 
print "«center»Cannot insert data into database 
SDBNAME on host $DBHOST: $err</center>\n"; 
print "'«/body»«/htmli» An"; 
exit; 
) 


print "<center><font size=+1><font color=blue> 


Echipamentul $echipament cu seria NV"$serieN" a fost adaugat. 


«/center»Mn"; 
print "«br»«center» 
<a hrefzi"/agenda/M"»Inapoi«/a»«/center» Mn"; 
print "«/body»«/html» An"; 
+ am terminat 
$âbh->commit ; 
$sth->finish; 
Sâbh->âisconnect; 


Ştergerea efectivă a datelor despre un echipament este efectuată de 


scriptul 


purge hardware, info.cgi, pe care cititorul poate încerca să-l conceapă de unul 


singur. 


5.3. Aplicaţie Web de monitorizare a calculatoarelor 


Aplicația Memo de faţă este o aplicație de monitorizare a activităţii 
calculatoarelor (serverelor) unei organizaţii (de exemplu, un Internet Service 
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Provider). Informațiile referitoare la calculatoare vor fi introduse într-o tabelă 
denumită hosts, a cărei structură este: 
-- Name: hosts Type: TABLE Owner: fcs 


CREATE TABLE "hosts" ( 
# numele masinii 
"hostname" character varying(80), 
4 comunitatea SNMP (citire) 
"readsnmpcomunity" character varying(60), 
+ comunitatea SNMP (scriere) 
"writesnmpcomunity" character varying (60) , 
# functiile indeplinite 
+ (router, statie de lucru, nameserver etc.) 
"functions" text 

); 


Această tabelă confine diferite date despre serverele monitorizate (comunități 


SNMP, descrierea fiecărui server în parte şi numele serverelor). 


De asemenea, mai există o tabelă uptimes în care se inserează periodic datele 
citite de la aceste servere, într-un format specific, Structura acestei tabele este 
următoarea: 


-- Name: uptimes Type: TABLE Owner: fcs 


CREATE TABLE "uptimes" ( 
# numele serverului 
"hostname" character varying(80),, 
+ locatia 
"location" character varying (100), 
8 administrator masinii 
"syscontact" character varying(50), 
# timpul de rulare 
"uptime" bigint, 
4 utilizarea procesorului 
"cpu" character varying (50), 
4 utilizarea memoriei RAM 
"ram" bigint, 
2 utilizarea spatiului 'swap' 
"swap" bigint, 
4 tip si versiune nucleu 
"kernel" character varying(50), 
$ tipul de sistem 
"systype" character varying(20), 
+ timpul local 
"timestamp" timestamp with time zone, 
# graficul 
"graph" text 
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Graţie acestor informaţii, aplicaţia poate monitoriza uptime-ul serverelor (timpul 
scurs de la ultimul reboot), gradul de ocupare a partiţiilor, a memoriei RAM și a 
swap-ului, încărcarea medie a unei mașini. De asemenea, pentru gradul de ocupare 
al partiţiilor se generează grafice la fiecare două ore. Scripturile care populează cu 
date preluate de la fiecare server tabela hosts se bazează pe MRTG - o aplicaţie 
scrisă de Tobias Oetiker, disponibilă pe Web la adresa http://ee-staff. 
ethz.ch/-oetiker/webtools/mrtg/. 


Scriptul CGI care afişează informaţiile despre computerele monitorizate va 
folosi o serie de subrutine auxiliare pe care le vom defini într-un fişier separat, cu 
numele functions .pl. Codul-sursă al acestui fişier este dat în continuare: 


use strict; 


+ Subrutina "traduce" timpul din format UNIX 

$ intr-un format mai natural 

4 e.g. "2 days, 6 hours, 50 minutes, 12 seconds" 
sub translate, uptime ( 


+ utilizam modulul POSIX 

# pentru functia floor() 

use POSIX qw/floor ceil/; 

8 preluam timpul ca argument al functiei 
my $uptime = $ [0]; 


return "" if (!defined($uptime) || $uptime eq ""); 
my $days = floor($uptime/(100*3600*24)); 
$uptime = $uptime-$days*(100*3600*24); 

my $hours = fioor($uptime/(100*3600)); 

S$uptime = $uptime-$hours*100*3600; 

my $minutes = floor($uptime/(100*60)); 

$uptime = $uptime-$minutes*60*100; 


my $seconds - $uptime/100; 
return "$days days, $hours hours, " 
"$minutes minutes, Sseconds seconds"; 

) i 
8 afiseaza informatii detaliate despre un calculator 
# (locatie, tip de sistem, procesor, nucleu, stare etc.) 
sub print info ( i 

my $hostnames$ [0]; 

# nume invalid 


if (i!defined($hostname) || $hostname eq "" ) ( 
print "«center»«big»Invalid hostname«/big»«/center» Mn"; 
return; 

) 

use DBI; 

3 variabile folosite pentru conectarea la baza de date 

my SDBHOST = "fos 

my SDBUSER = test: 

my $DBPASSWD = "demonstratie"; 

my SDBNAME = "SDBUSER"; 
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t inredigtráred curenta my $QUERY = "select ITEMNAME from uptimes 
my $rc; where hostnames'$hostname' and 
+ realizam conectarea timestamp= (select max (timestam . 
a " p) from upti 
my $dbh = DBI->connect ("dbi: Pg: âbname=$DBNAME; host=$DBHOST” , where hostname=! $hostname!')"; clic tii 


"SDBUSER", "SDBPASSWD", 4 initializam un sir generic de interogare 
[RaiseError => 0, # evitam sa realizam o interogare de genul 
PrintError => 0, * "SELECT itemi, item2...itemN" pentru ca 
Autocommit x» Mgr * interogarea poate esua daca specificam 
y vetifican daca au aparut erori # un camp inexistent in baza de date 
f 


my $errz$DBI:;errstr; oreach (8items) ( 


if (defined($err) && S$err ne "" ) ( next if (/curenti state/); 

print "<center><big>Error: $err.«/big»«/center» Mn"; * ^^exemplu de camp inexistent 

return; $1ocalquery = $QUERY; 
) if (/maxi uptime/) ( 
$ initializam un tablou 'hash' avand valorile 'unknown' $localquery = "SELECT max (uptime) 
+ (folosit in cazul in care in baza de date nu sunt date) FROM uptimes WHERE hostname-'$hostname'"; 
my Sitems; ) eise ( i 
my Gitems = ('location', 'syscontact', 'systype', $localquery =~ S/ITEMNAME/$ /g; 

'cpu', 'ram', 'swap', 'kernel', i 3 
'uptime', 'max uptime', 'curent state'); $sth = $dbh-»prepare($1ocalquery); 

foreach (Gitems) ( i $rc = $sth-»execute; 

gitems->($_) = "unknown"; 2 if (!defined($rc) || $rc eq "* ) ( 
) Șerr = SDBI::errstr; ; 
my $1ocalquery; A print "<center><big>Error: Șerr.</big></center>in"; 
my $retval; return; 
my $sth; ) 
my ($maxtimestamp, $hosttimestamp); : $retval - $sth-»fetchrow; 
+ realizam interogarea if (aefined($retval) && $r nn nu 
$sth = $âbh->prepare ("select max(timestamp) from uptimes"); $retval =~ beu c xs && $retval ne "O") ( 
$rc = $sth-»execute; $retval = -s/A«/N&ltV;/g; 
$maxtimestamp - $sth-»fetchrow; # simbolurile '>' and '«' sunt inlocuite cu entitatile HTML 
if (!defined($rc) || $rc eq "" ) ( + folosind expresiile regulate 

$err = SDBI::errstr; if ($ --/uptime/) ( 

print "<center><big>Error: $err.«/big»«/center» An"; $retval = translate, uptime ($retval) ; 

return; ) i 
) . i $items-»($.) = $retval; 
+ citim din baza de date cel mai mare timp 'uptime' ) 
$sth = $dbh-»prepare("select max (timestamp) ) 

from uptimes where hostname=?") ; * generam tabelul continind valorile citite din baza de date 
$rc = $sth-»execute($hostname);; my $table = "<table border-1 widthz100$»Xn"; 
Shosttimestamp = $sth->fetchrow; foreach (8items) ( 
if (!defined($rc) || src eq "" ) ( $table = $table 

$err = $DBI::errstr; "«tr»«td align=center>" . $ . 

print *<center><big>Error: $err.«/big»«/center» An"; "«/td»«td align=center>" , Sitems-»($ ) 

return; "</tă></tr> n"; T 
) ) 
4 preluam cel mai vechi timp la care au fost actualizate datele : $table = $table . "</table>inn; 
# despre un anumit server print "$table'; : 
if ($maxtimestamp eq $hosttimestamp) { F am terminat 

şitems->('curent state') = "up & running"; $sth-»finish; 
) else ( $dbh-»disconnect; 


$items-»[('curent state') = "down"; ) 


) 
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# afiseaza valorile corespunzatoare incarcarii unui sistem 
4 (capacitatea partitiilor, gradul de incarcare al masinii, 
# memoria, spatiul de swap etc.) 
sub print, vals { 

my Shostname = $ [0]; 


if (!defined($hostname) || $hostname eq "" ) ( 
print "'«center»«big»Invalid hostname«/big»«/center» Mn"; 
return; 

) 

use DBI; 

my $DBHOST e cUtosus 

my S$DBUSER e festi 

my $DBPASSWD = "demonstratie"; 

my S$DBNAME = "SDBUSER"; 


my ($rc, $tmp); 
my $dbh = DBI-»connect("dbi:Pg:dbname-$DBNAME;hostzs$DBHOST", 
"SDBUSER", "S$DBPASSWD", 
(RaiseError => 0, 
PrintError => 0, 
AutoCommit => 1)); 
my $err = $DBI::errstr; 


if (defined(S$exrr) && $err ne "" ) ( 
print "<center><big>Error: $err.</big></center>in”; 
return; 

H 


+ valorile monitorizate sunt extrase din campul 'graph' 
my $sth = $dbh-»prepare("SELECT graph FROM uptimes 
WHERE hostname=? AND 
timestamp= (SELECT MAX (timestamp) 
FROM uptimes where hostname-?)"); 
$rc = $sth-»execute($hostname,$hostname); 
if (!defined($rc) |] $rc eq "") ( 
Serr = $DBI::errstr; 
print “<center><big>Error: S$err.«/big»«/center»Mn"; 
return; 
) 
$tmp = $sth-»fetchrow array; 
if (tidefined(Stmp) || $tmp ea "") ( 
$sth-»finish; 
$dbh-»disconnect; 
) 
3 fiecare din cele patru cuvinte din 'graph' contin 
4 informatii pe care le vom pastra in tablouri asociative 
my $i = 0; 
my $tmpkey; 
my ($values, $usages, $units); 
foreach(split(/ /, Stmp)) ( 


if ($i$4 == 0) 4 
$tmpkey = $ ; 
} elsif ($i$4 == 1) { 
$values->($tmpkey) = $a; 
} elsif ($i$4 == 2) ( 


$usages-»($tmpkey) = $; 
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} elsif ($i$4 == 3) ( 
$&units-»($tmpkey) = $.; 


) 
$i++; 
) 
my ($value, $usage, $unit); 
return if $i « 3; 
+ afisam datele 
my $table = "<table cellspacingz1 bordersl width-100$»An"; 
$table = Stable . 
"«tr»«th align=center>Label</th>" 
"«th align=center>Max Value</th>" 
"<th align=center>Usage</th></tr>n"; 
foreach (keys($values)) ( 
($value, $usage, $unit) s 
(Svalues-»($ ), $usages-»($ ), $units-»($. )); 
$table = $table 
"<tr><td alignsleft»$ «/td»" 
"<td align=center>" 
$value . " " , $unit . "«/td»«td align=center>" 
$usage . " " , $unit . "«/td»«/tr»MAn"; 
} 
# scriptul care genereaza si reprezentarea grafica 
# a timpilor 'uptime' nu a mai fost inclus aici 
$table = $table."</table>\n"; 
print "$table"; 
+ am terminat 
$sth-»finish; 
$dbh-»disconnect; 


În continuare furnizăm codul-sursă al scriptului CGI memo.cgi care va afişa 
informaţiile despre serverele monitorizate: 


ti! /usr/bin/perl 
use strict; 


4 includem fisierul continind functiile auxiliare 
# ce vor fi folosite mai jos 
require *functions.pl"; 


+ afisam antetul paginii 

print "Content-type: text/htmlinin"; 

print ««"END"; 

«html»«head»«title»Servers and Workstations«/title» 
</head> 

<body bgcolor="white" alink="blue" vlink="blue"> 
«font color="blue"> 

END 


i fortam serverul PostgreSQL sa afiseze valorile de timp 
4$ intr-un format particular 
$ENV--('PGDATESTYLE')-'Postgres'; 

# utilizam modulul DBI 
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use DBI; 

my SDBHOST = "fes"; 

my $DBUSER = "fcs"; 

my $DBNAME = "SDBUSER"; 

my SDBPASSWD - "demonstratie"; 


+ ne conectam la baza de date 
my $dbh = DBI-»connect("dbi:Pg:dbname-$DBNAME; hostz$DBHOST", 
"SDBUSER", "$DBPASSWD", 
( PrintError => 0, RaiseError => 0, 
AutoCommit -» 1)) 
|| die "Cannot connect to $DBNAME: $DBI::errstrAn'; 


+ ne-am conectat la baza de date PostgresSQL S$DBHOST folosind 
+ numele de utilizator $DBUSER, parola $DBPASS 

+ si baza de date $DBNAME 

# Se executa o interogare pentru a se extrage 

+ numele tuturor serverelor care sint monitorizate... 
my $sth = $dbh-»prepare("SELECT hostname FROM hosts"); 
my $rc = $sth-»execute; 

my Ghosts; 

my $tmp; 

my $err; 

4 ...si apoi introducem valorile citite intr-un vector 


while (defined($tmp = $sth-»fetchrow)) ( 
push(Ghosts, $tmp) if $tmp ne ""; 
un 
* Primele 10 'uptimes' de la ultimul update al bazei de date 
$sth = $dbh->prepare ("SELECT hostname, uptime 
FROM uptimes 
WHERE timestamp- (SELECT MAX(timestamp) 
FROM uptimes) ORDER BY uptime DESC limit 10"); 
my $rc = $sth-»execute; 
if (!defined($rc)) ( 
$err = S$DBI::errstr; 
print "Error fetching data from $DBNAME: $Serr. Xn"; 
print "«/body»«/htmi»"; 
die $err; 
Js 


my $toplOlast; 
my Gtop; 
my $i; 
my Gtmp; 
# generam vectorul hash care contine ca valori 
$ uptime-urile si numele de host drept chei 
Gtmp = $sth-»fetchrow array; 
while ($#tmp>-1 ) ( 
push (top, 8tmp); 
@tmp = $sth-»fetchrow array; 
js 
for ($iz0; $i < $#top; $i += 2) ( 
StoplOlast-»($top($i + 1]) = $top[$i]; 
) 


my $toplOever; 
+ pregatim o interogare generica pe care 
# o vom executa de mai multe ori cu 
+ parametrul 'hostname' diferit 
$sth = $dbh-»prepare("SELECT max (uptime) 
from uptimes where hostname=?"); 
foreach (Ghosts) ( 
$rc = $sth-»execute($,); 
next if $rc eq ""; 
$tmp = $sth-»fetchrow; 
$toplO0ever-»($tmp) = $; 
+ print "TEST: $_ - tmp=\"$tmp\", rcsV"$rc V" An"; 
) 
+ afisam datele preluate din baza de date 
my $tabletopiOlast = ""; 
$tabletoplOlast = $tabletopl01last 
"<table border-1 cellspacing-1» 
<tr><th>Not</th><th>Hostname</th> 
<th>Uptime</th></tr>in"; 
$i = 1; 
foreach (sort {$b <=> $a) keysí$topli0last)) ( 
$tabletoplOlast = $tabletoplOlast 
"<tr><td alignzright»$i.«/td»«td» 

«a href-V"/cgi-bin/hostinfo.cgi?hostnames" 
$toplOlast->($_) . ">" 
%toplOlast->($_) 

"c«/a»«/td»«td»«font size=-1>" 
translate uptime($.).. 
"«/font»«/td»«/tr» Mn"; 
$i++; 
) 
$tabletopi0last = $tabletopiO0last . "«/table» Mn"; 
my $tabletoplOever = ""; 
$tabletopiOever = $tabletoplOever 
"<table border-1 cellspacing-1» 
<tr><th>Not</th><th>Hostname</th> 
«th»Uptime«/th»«/tr» Mn"; 
$i = 1; 
foreach (sort {$b <=> $a) keys($toplOever) ) { 
last if $i » 10; 
$tabletoplOever = $tabletoplOever 
"<tr><td align=right>şi. 


«/td»«td»«a href=1"/cgi-bin/hostinfo.cgi?hostname=* 


$topiOever-»($ ) . "V>" 
$toplOever-»($.) 
"«/a»«/td»«td»«font size=-1>" 
translate uptime($. ) 
"«/font»«/td»«/tr» Mn"; 
$i++; 
) 
$tabletoplOever = $tabletoplOever . "</table>"; 


+ Am aflat cele mai mari 10 uptimes-uri citind uptime-ul 


4 maxim pentru fiecare host in parte. 
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Construim un tablou asociativ avind ca index uptime-urile 
respective si ca valori numele hosturilor respective, 
apoi il sortam descrescator. 
Acelasi lucru se putea face cu o interogare multipla 
si cu rezultatul grupat dupa uptime-uri si hostnane, 
si ordonat descrescator dupa uptime, insa 
se consuma mult mai multe resurse. 
print <<"END"; 
«center»«h2»Servers and Workstations</h2></center> 
«br» 
«center» 
<table cellspacing-"1" border="1"> 
<tr><th><big>Not</big></th> 
«th»«big»Computer name«/big»«/th» 
«th»«big»Functions«/big»«/th»«/tr» 


3k 4k db dk dk dk dk 


END 


4 citim din baza de date numele si functiile 
+ fiecarui calculator in parte si 
4 le afisam într-un tabel inaintea top ten-urilor 
$sth - $dbh-»prepare("SELECT functions 
from hosts where hostname-?"); 
$i - 1; 
foreach (sort Ghosts) ( 
$rc = $sth-»execute($. ); 
next if $rc eq ""; 
$tmp = $sth->fetchrow; 
print “<tr><td alignsright»$i.«/td» 
«td align=left> 
«font color=blue> 
«a href-V"/cgi-bin/hostinfo.cgi?hostname-$ V'»$ «/a» 
«/£font»«/td» 
«td align=center> 
«font color-black»$tmp«/font»«/td»«/tr» Mn"; 
$i++; 
E 
print "«/table»«/center» Mn"; 
4 afisam clasamentul primelor 10 masini 
# cu 'uptime' cel mai mare 
print ««"END"; 
«hr» 
«br» 
«center»«big» 
«font COLOR-"blue"»«b»Top 10 Uptimes</b></font> 
«/big»«/center» 
«br» 
«center» 
«table cellspacing="1" border="1"> 
<tr> 
<th>Top 10 Last uptimes</th> 
<th>Top 10 uptimes</th> 
</tr> 
<tr> 
«th»«big»Top 10 uptimes for still running hosts«/big»«/th» 
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<th><big>Top 10 uptimes Ever</big></th> 
«/tr» 
END 


print "'«tr»«td»$tabletoplO0last«/td» 
«td»$tabletoplOever«/td» 
</tr>in</table></center>"; 
+ afisam ultima actualizare a acestor informatii 
$sth = $Şdbh->prepare ("SELECT MAX (timestamp) FROM uptimes"); 
$sth-»-execute; 


my $lastupdate = $sth-»fetchrow; 

print "An«hr»«p align-right»Last update: $lastupdate.«/p»«hr»Mn"; 
print "«/body»«/html»*An"; 

# Dupa afisarea celor trei tabele ne deconectam 

$sth-»finish; 

$dbh-»disconnect; 


PS "S "Functions 
; — Workstation, “Test BGP Router, Development, Testing - 


Mail Server, | Traffic : Control, Trafic Accounting, Leased lines for Ice 
Computers Botosani 


MA — Workstation, . Testing. e 


"Primary Nameserver, Primary Mail Exchanger, Web Server 
(mali iasi.rdsnet. ro), WINS Server 


niemal BGP Router, Postgres SQL Database Server, Internal Web SKT i 
(admin iasi.rdsnet.ro, memo .iasi.rdsnet.ro, home.iasi.rdsnet.ro), MRTG  . 
Graphic Statistics 


Secondary Nameserver, Virtual WEB Hosting, Virtual Mail Hosting, 
Secondary Mail Exchanger, FTP Server, Web Proxy 


RDS Office - lasi Branch Router, Local WINS Server, Proxy Server, 
MySQL pers Server, Local Dame: ever 


Internal BGP Router, Postgres SQL pues Server, Web Proxy, 
Firewalling and | Accounting, T Traffic Control — — 


... Internal BGP Router, Firewaling, Traffic Control 


Fig. 4.8 — Lista calculatoarelor operaționale, preluată din baza de date 
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print <<"END"; 
<html><head><title>$title</title></head> 


Top 10 uptimes for still runnmg hosts „Top. 10 uptimes Ever 


i E ean eE eE Sa AE AAE E RM E N ăa reis EEE aie d aicea kun 


i ^ Homme | Hu Uptime mu și Hostname i Uptime «body bgcolor="white" alink="blue" vlink="þlue"> 
o gd n :29 days, 7 hours, 36 ii 1223 days, 16 hours, 51 <center><big><font color="blue">$title</font></big></center> 
L L.. sorm. jasi rdsnet.ro jasi rdsnet.ro : minutes, 10.97 seconds i r storm isi dene ro aardse ro ; minutes, 54.52 seconds «br» 
: us B i ; END 


2 ‘kokos iasirdsnet.ro | 18 days, 6 hours, 25 
uU ea inutes, 8.84 s 


i days, 3 hours, P 
; minutes, 36.4 seconds — 


|202 days, 12 hours, 2 
mango asi rdsnet ro. | minutes, 198 seconds — 


1183 days, 7 hours, 55 
_ ` minutes, 42.99 seconds 


192 days, 3 hours, 35 

; minutes, 4.83 seconds — 
178 days, 3 hours, 46 
5. |Swan (asi rOSnet.F0 | minutes, 54.77 seconds 
m days, 21 hours, 5 

i minutes, „42.73 seconds — | 


` {70 days, 23 hours, 30 
t r * 
T3 tatea iasi, — ro minutes, 53.16; i 


Ha E" days, 8 hours, 8 2 minute: ji 
139.58 seconds — 


45 deys, 21 hours, 43 — | 
9.: a j minutes, 30.32 seconds 


136 days, 11 hours, 19 
: minutes, 3. 3 Sony. hs 


2: 


+ afisam informatiile detaliate 

# referitoare la un anumit calculator " 
+ prin apelarea functiei print info() din functions. pis 
print "<center>"; 

print info($hostname); 

print "«/center»"; 

print "<br>" 

i afisam, de asemenea, valorile referitoare la 

+ incarcarea memoriei, procesorului, partitiilor etc, 
* prin apelarea rutinei print, vals() din functions.pl 
print "<center>"; 

print_vals ($hostname) ; 

print "«/center»"; 

# am terminat 

print "«/body»«/html»"; 


3. gii iasi. Lrdsnet. ro 


p 5 x n :14 days, 3 hours, 54 
4. support. iasi. rdsnet.ro ro minutes, 271 seconds 


Pa us 4days, 0 hours, 10 
i E Qfficeissirdenc.ro | minutes, 0.98 seconds 


i i 
| 
Í 
l 


6 baies ro. > Saya; 20 ue i E (divia iasi. rdsne, ro 


^ astea, 


jminutes, 57.14 seconds 


“iT dsys, 11 hours, 53 
i 14 


J> days, 
i minutes, 53.37 seconds — 


Says, 21 hows, 9 — 0 
— | minutes, 16.32 seconds —u 
H 
Hi 


8.: ‘office; iasirdsnetro : 


i2 days, 1 hours, 37 i 
- minutes, 4 40.66 seconds — 


e 
mu 
|! 
5 
A 
E3 
Ej 
3 


Host information for kiwi iasi rdsnet ro 


Fig. 4.9 — Clasamentul celor mai mari timpi uptime 


Pentru a afla informaţii detaliate despre o anumită maşină, utilizatorul are ` 
posibilitatea de a urma legătura ataşată numelui de calculator, invocându-se un alt 
script CGI denumit hostname. cgi, al cărui cod-sursá este dat în continuare: 


4! /usr/bin/perl 
use strict; 


use CGI 'param'; 


+ se utilizeaza o serie de functii auxiliare | Load Average i i Se i aim S 5 70-76 Value*100 

require "functions.pl"; Rel Memory Jd QE Bug eur S dit i gs xd 116020 KByles — 

+ afisarea antetului paginii S ` 265032 KBytes — Aa 

print "Content-type: text/htmlinin"; m p: | 17567744 KBytes 

+ preluam numele de calculator pai i 35220 K 

my $hostname = param('hostname'); E ber ai 044 KBytes n. 951616 KBytes. i 

+ generam dinamic titlul paginii i x 24 KBy PP D ` 945764 KBytes 

my Siite: i a NR PERII e ——Pá TEE Qus ED IEI 

ie (lee eee nene] e NORA ie eg OCT Fig. 4.10 — Afişarea detaliată a informaţiilor despre un calculator monitorizat 
$title = "Error"; 

) eise ( 


$title = "Host information for $hostname"; 


w 
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5.4. Migrarea de la baze de date relationale la documente XML 


Utilizarea bazelor de date relationale 


Pentru început vom utiliza vechea paradigmă bazată de modelul client/server, în 
care clientul joacă un rol predeterminat, pasiv, primind datele într-un format 
stabilit apriori de către. server (via câmpul Content-type din antetul HTTP). 
Fiecare aplicație de acest fel stabileşte un model propriu de marcare a datelor, 
model bazat pe XML, programatorii trebuind să se concentreze asupra marcării 
structurale și a validității datelor reprezentate. Astfel, datele stocate în formatul 
specific unui server de baze de date se vor regăsi ca documente XML, 


independente de platformă şi de o reprezentare particulară (de cele mai multe ori, 
proprietară), 


Vom considera, drept exemplificare, o bază (schemă) de date Biblioteca având 
în componenţă trei tabele: utilizatori, carti şi imprumuturi şi un script CGI 
care rezolvă interogările posibile asupra acestor date. 


Cele două listinguri (script.p1 şi rez. tmp1) prezentate mai jos relevă modul în 
care se poate realiza independența datelor de reprezentarea lor, folosindu-se DBI şi 
un alt modul Perl de la CPAN: TEXT: : Template. 


În primul caz se realizează independența relativ la baza de date (după cum am 
văzut, modulul paz va încărca un driver particular serverului de baze de date ales), 
iar în al doilea caz, relativ la reprezentarea datelor în afara bazei de date, întrucât 
formatul tabelei extrase se schimbă uşor cu un nou şablon (template) care poate fi 
transmis direct ca parametru scriptului CGI. Astfel este posibil, de exemplu, să se 
realizeze un feedback din partea clientului. Mai putem observa, de asemenea, că 
datele de ieșire vor fi marcate în HTML standard. 


2! /usr/bin/peri 


5 script.pi 

use strict; 

use CGI: 

use CGI: :Carp; 

use DBI; 

use Text: :Template; 


my $q = new CGI; 

$g-»import, names ('R'); 

4 incercam conectarea la serverul de baze de date 

my $dbh = DBI-»connect('dbi:Pg:dbname-biblioteca', Ea: dul) 
|| die S$DBI::errstr; 

4 ne pregatim sa trimitem comanda SQL 

my $sth - $dbh-»prepare (at 
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SELECT c.titlu, i.data 
FROM utilizatori u , carti €, imprumuturi i 
WHERE u.nume = ? and u.prenume = ? 
and u.cod s i.cod utilizator 
and c.cod = i.cod carte 
PH; 
$sth-»execute($R::nume, $R::prenume) 
|| die $DBI::errstr: 
4 colectam rezultatele trimise de server 
my Sref; 
while( defined($ref = $sth-»fetchrow arrayref) ) ( 
push GR::rows, [ eşret ]; 
) 


print $q-»header('text/html'); 
4 afisam datele la iesirea standard, 
+ folosind sablonul stocat in 'rez.tmpl' 
my $t = new Text::Template (TYPE => 'FILE', 
SOURCE => 'rez.tmpl', 
PREPEND => a(use strict;use CGI qw/:standard/:)): 
$t-»fill in(OUTPUT => N*STDOUT) ; 


$sth->finish; 
$dbh-»disconnect; 


Urmează şablonul de afișare a datelor (memorat în fişierul rez. tmp1, folosind 
facilitățile oferite de modulul car): 


( 
$OUT .- start html(); 
my Grows; 
foreach (8R::rows) ( 

push Grows, td($.) 


i 


) 
+ datele vor fi afisate intr-un tabel 
$OUT .= table((-borders»undef), 
caption('Rezultate'), 
Tr((-aligns»'center',-valigns»'top'], 
i 
th(['Titlul cartii', 'Data imprumutului']), 
Grows 
1) 
js 
$OUT .- end html(); 
) 


Dupá cum se poate remarca parcurgánd sursele de mai sus, datele furnizate de 
serverul de baze de date (s-a recurs la serverul PostgreSQL) vor fi trimise, cátre 
clientul Web, de scriptul CGI în format HTML. 
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: T ; «biblioteca» 
Extragerea de informaţii ca documente XML <RESULTSET statement=" 
SELECT c.titlu, i.data 
Noul pas este să vedem cum putem extrage din baza de date informaţiile dorite FROM utilizatori u , carti c, imprumuturi i 
direct în XML, cu ajutorul modulului pBrx: : XuL_RDB, ilustrând, prin intermediul WHERE 4. nume = 'Clubotariu' and u.prenume = "Vlad 
: 1 f li li | să d id and u.cod = i.cod utilizator 
unui exemplu nu oarte comp icat, cum poate c ientu să degreveze serverul de e e ateste pă de pate ed 
generarea unei reprezentări particulare a datelor. După cum se va remarca, modulul <ROW> 
DBIx::XML, RDB este răspunzător pentru transformarea oricărei asertiuni SQL <titlu>In spatele usilor inchise</titlu> 
SELECT în document XML «data»2000-10-10«/data» 
«/ROW» 
: gul ; «ROW» 
Vom folosi transformárile XSLT | (Extensible Stylesheet | Language «titluszidule/titlus 
Transformations), slujindu-ne de funcfionalitáfile oferite de modulul XML::XSLT. «data»2001-11-02«/data» 
Pentru aceasta, vom scrie urmátorul script CGI (programul va realiza o interogare «/ROW» 
SQL, iar rezultatul primit de la server va fi un fişier XML pe care îl vom «/RESULTSET» 
transforma in format XHTML prin intermediul unei foi de stiluri denumite SE IAO EET . s 
rezult.xsl) Acest document va conține datele rezultate în urma interogării in cadrul 
4! /usr/bin/peri elementelor «now» (în cazul nostru, valorile câmpurilor titlu şi data). 
+ extract.pl Foaia de stiluri XSL rezult.xs1 care va fi folosită pentru afişarea comodă a 
use strict; acestor date este următoarea: 
use CGI; 


<?xml version="1.0"?> 
«xsl:stylesheet versionz"1.0" 
xmins:xslzs"'http://www.w3.org/TR/XSL"» 


use CGI::Carp; 
use DBIx::XML RDB; # modificat pentru a suporta foi de stiluri 


my $q - new CGI; 
$q-»import, names('R'); «!-- aplicam sablonul a 
$ incercam sa ne conectam pentru elementul radacina al documentului --» 
my $xmlout = new DBIx::XML, RDB( <xsl:template match='/'> : . A 
'http://localhost/styles/rezult.xsl', i «xsl:apply-templates select-"biblioteca" /» 
'dbnameszbiblioteca', 'Pg', 'ciu', '') </xsl:template> 
|| die "nu ma pot conecta..."; 
+ lansam interogarea SQL 
$xmlout-»DoSql (qat 
SELECT c.titlu, i.data 
FROM utilizatori u , carti c, imprumuturi i 


<xsl:template match='biblioteca'> 


«html» - 
«head»«title»Rezultatele interogarii«/title»«/head» 


«body bgcolor="white" text="blue"> 


-- i t de pagina --» 
WHERE u.nume = '$R::nume' and u.prenume = '$R::prenume' s inecepu M rd " " 
and u.cod = i.cod utilizator <table align="center width= 633"> 
and c.cod = i.cod carte «!-- antetul tabelului --> 
DE i i «tr align="center"> 
+ trimitem Content-type: text/xml <th>Titlu</th> 
print $q-»header('text/xml'); <th>Data</th> 
+ apoi continutul fisierului XML generat </tr> - -—— 
rint $xmlout-»GetData; «!-- aplicam un a - 
i i l a construi rindurile de tabel 
Documentul XML returnat respectă structura de mai jos. Ca un exercițiu util, corespunzatoare datelor din «ROW» --» 


m R ` iia f s -'RESULTSET/ROW' /» 
cititorul este indemnat sá construiascá DTD-ul sau schema XML pentru validarea «xsl:apply-templates select='RESU 


: DE «/table» 
acestui fişier: «!-- final de pagina --» 
<?xml versionz"1.0" ?» «/body» 
«?xml-stylesheet type-"text/xsl" «/html» 


href-"http://.../styles/rezult.xsl" ?» </xsl:template> 
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<!-- sablonul pentru afisarea informatiilor din «ROW» --» 
<xsl:template match='ROW'> 
«tr align="center"> 
«td» 
<!-- titlul cartii e scris ingrosat --> 
<b> «xsi:value-of selectz'titlu' /» </b> 
«/td» 
«td» 
<xsl:value-of selects'data' /» 
«/td» 
</tr> 
</xsl:template> 


</xsl:stylesheet> 


Un ultim script Perl care realizează transformarea datelor marcate în XML în 
document XHTML, folosind foaia de stiluri prezentată mai sus. Acest program va 


funcţiona ca un proxy Web trimițând o interogare asupra bazei de date, primind 


documentul XML cu rezultatele şi apoi transformându-l în format XHTML (avem 
în fapt, o structură 3-fier). Pentru acest script, vom apela la modulele 
HTTP: : Request (util pentru rezolvarea cererilor HTTP) şi LWP: :UserAgent (folosit 
pentru a putea „simula” dialogul dintre serverul şi navigatorul Web). 


+! /usr/bin/perl 


+ xslt.pl 

use strict; 

use XML: :XSLT; 

use LWP:;UserAgent; 
use HTTP: : Request; 


die ‘sintaxa: xslt.pl nume prenume! unless GARGV == 2; 
my ($nume, $prenume) = @ARGV; 


4 formulam cererea GET catre server 

$ (se invoca scriptul CGI prezentat mai sus) 

my $req = new HTTP::Request(GET => qat 
http://localhost/-ciu/extract.pl?numes$nume&prenumes$prenume 


3): 


4 vom accepta doar documente XML 
$reg-»header(Accept => 'text/xml'); 


my $ua - new LWP::UserAgent; 
my $res = $ua-»request($req); 
die $res-»code . $res-»message unless $res-»is success; 


4 verificam daca a fost furnizata o foaie de stiluri, 
d adica daca exista directiva de procesare 

# <?xml-stylesheet ... ?» 

my $xmldoc = $res-»content; 

my S$xslref; 

die "fara xsl... nu putem vizualiza documentul" 
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unless ($xslref) = $xmldoc =~ /«?xml-stylesheet*Wb 
(^»]*Nb 
href 
NS*zNS* 
(?: 
"UpSSEX)T | 
POUSSER | 
)/gxi 


i preluam URI-ul foii de stiluri XSL 

# si o incarcam 

$req-»uri($xslref); 

$req-»-header (Accept => 'text/xsl'); 

$res = sua->request ($req); 

die $res-»code . $res-»message unless $res-»is, success; 


4 instantiem procesorului XSLT 

my $parser = XML: :XSLT->new ($res->content, 'STRING'); 
& transformam documentul utilizand foaia de stiluri 
$parser-»transform document ($xmldoc, 'STRING'); 


4 afisam rezultatul XHTML 
print $parser-»result. string: 
$parser-»dispose (); 

În cazul de față am înlocuit „dialectul” impus de Text: : Template cu o foaie de 
stiluri (care poate fi procesată direct pe partea client, de exemplu de Internet 
Explorer 5 sau o versiune superioară). Rezultatul final va fi un document XHTML. 
Modificând numai foaia de stiluri XSL, aceleaşi date le putem afişa diferit pe alte 
dispozitive — e.g. pe telefonul celular, utilizându-se, drept limbaje de marcare, 
WML (Wireless Markup Language) sau mai vechiul HDML (Handheld Device 
Markup Language). O aplicaţie sugerată de autorul modulului DBIx::XML RDB 
folosit mai sus este realizarea transferului de date între baze de date eterogene prin 
intermediul unui format neutru (datele binare vor putea fi codificate prin UTF-8). 


După cum am văzut mai sus, formatul XML omogenizează reprezentarea datelor 
pe diferite platforme, favorizând integrarea unor medii eterogene şi, nu în ultimul 
rând, independenţa logică a datelor. 


Realizarea de interogări prin XQL 


XML permite marcarea structurii logice a datelor (vezi capitolul 1). Rezultă de 
aici că meta-limbajul XML poate fi formatul nativ pentru stocarea de date, având şi 
avantajul că se comprimă uşor şi eficient (în fapt, este un format text). 


Limbajul XQL (Extensible Query Language) extinde natural capacitatea XSL de 
a identifica clase de noduri, adăugând operatori logici, filtre, indecsi etc. Este 
conceput special pentru documentele XML, avánd o sintaxá concisá si eficientá, 
inspirată întru câtva de XPath. Avizăm cititorul că există si alte propuneri de 


244 PROGRAMARE WEB IN BASH SI PERL 


limbaje de interogare pentru datele structurate ca documente XML, ca de exemplu 
XQuery sau XML-QL. 


Studiul nostru de caz cuprinde o rescriere in XML a schemei de bibliotecă 
folosită în exemplele anterioare şi care era inerent optimizată pentru modelul 
relational. Pentru simplitate, s-a renunţat la definirea formală a tipului de document 
prin DTD sau XML Schema. 


Vom prezenta în continuare o propunere de structură de document XML care va 
stoca informaţiile referitoare la împrumuturile de cărți. Acest fișier îl vom denumi 
imprumuturi xml: 


<?xml version="1,0* ?» 
«imprumuturi» 
«RECORD» 

«carte» 
«titlu»Zidul«/titlu» 
«autor»J.P. Sartre«/autor» 

«/carte» 

«utilizator» 
«nume»Ciubotariu«/nume» 
«prenume»Vlad«/prenume» 

«/utilizator» 

«data»2001-1i11-02«/data» 

«/RECORD» 
«RECORD» 

«carte» 

«titlu»Muntele vrajit«/titlu» 
«autor»Th. Mann</autor> 

«/carte» 

«utilizator» 
«nume»Dumitriu«/nume» 
«prenume»Daniel«/prenume» 

«/utilizator» 

«data»2001-10-12«/data» 

«/RECORD» 
«RECORD» 

«carte» 

«titlu»Lupul de stepa</titlu> 
<autor>H. Hesse</autor> 
</carte> 

<utilizator> 
<nume>Tarhon-Onu< /nume> 
«prenume»Victor«/prenume» 

«/utilizator» 

«data»2001-12-12«/data» 

«/RECORD» 
«/imprumuturi» 


Pentru procesarea în Perl a unei interogári XQL care găseşte toate cărțile 
împrumutate de o anumită persoană vom folosi DOM (Document Object Model) şi 
modulul xur.: :xQL. Codul-sursă al scriptului (denumit xq1.p1) este următorul: 
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+! /usr/bin/peri 


# xql.pl 

use strict; 

use XML::XQL; 

use XML::XQL: : DOM; 


die 'usage: xgl.pl nume prenume' unless GARGV == 2; 
my ($nume, $prenume) = GARGV; 


+ instantiem analizorul DOM 

4 pentru a realiza procesarea documentului XML 

my $parser - new XML::DOM::Parser; 

my Simprumuturi - $parser-»parsefile("imprumuturi.xml"); 


+ formulam interogarea XQL 
my $q1 - 
'/*/RECORD[utilizator/nume = ? $and$ utilizator/prenume = ?]'; 
# se substituie primul '?', din interogare 
4 cu numele furnizat de utilizator 
i se substituie al doilea '?' cu prenumele dat de utilizator 
$ql =~ s/(.*) (2) (.%) (32) (.*)/$1' $nume'$3'$prenume'$5/; 


+ afisam rezultatele ca sir de caractere 

foreach (XML::XQL::solve($qg1, $imprumuturi)) ( 
print $  -»xql toString . "WMn";- 

) à 

Pentru scriptul de mai sus, dacă utilizatorul l-a apelat cu parametrii Tarhon-Onu 
victor, cererea XQL va fi: 
/*/RECORD[utilizator/nume = 'Tarhon-Onu' $and$ 

utilizator/prenume = 'Victor'] 

Se va căuta în documentul XML, parcurgând arborele de elemente XML, orice 
potrivire a conținutului sub-elementului «nune» $i a sub-elementului «prenume» ale 
elementului «utilizator» cu numele si prenumele specificate la intrare. Cititorul 
poate transforma acest program Perl în script CGI pentru a putea fi folosit pentru 
Web. 


Aşadar, ne putem dispensa de baza de date relațională în cazul unei aplicații 
simple. Obtinánd resursa XML dorită, putem crea si extrage datele (într-o 
multitudine de forme) într-un mod flexibil, în funcție de necesități. Încurajăm 
cititorul interesat să aprofundeze domeniul şi să experimenteze aspecte mai 
sofisticate, prin scrierea de scripturi Perl mai complexe. 
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6. Exercitii propuse 


1, Să se conceapă în limbajul Perl un script CGI care să fie utilizat pentru 
evaluarea expresiilor matematice cu paranteze. Se vor realiza mai multe 
variante, cu şi fără ajutorul modulului CGI. 


2. Să se scrie un script CGI, invocat via SSI, care să afişeze un citat celebru ales 
aleatoriu dintr-o listă, în funcţie de localizarea geografică a vizitatorilor (de 
exemplu, pentru un vizitator din România se va afișa un citat în limba română). 


3. Să se scrie un script Perl care realizează modificarea unei înregistrări dintr-o 
bază de date, folosindu-se comanda SQL update. 


4. Să se completeze colecţia de scripturi prezentată în cadrul acestui capitol cu 
alte programe care să permită realizarea de operaţii, relativ mai complicate, 
asupra bazelor de date (numărarea de înregistrări, realizarea de comenzi join 
etc.). 


5. Să se modifice scripturile prezentate in secţiunea 4.1 astfel încât să se ofere 
posibilitatea trimiterii unui e-mail fiecărui client al bibliotecii (se va genera, 
pornind de la valoarea atributului aâresa al elementului <client>, câte o 
legătură <a href-"mailto:..."»...«/a»). 


6. Să se scrie scriptul Perl modify hardware info.cgi care să modifice 
informaţiile despre echipamente de inventar din cadrul aplicaţiei Agenda 
prezentate în secțiunea 5.2. 


7. Urmând eventual modelele prezentate în studiile de caz, să se realizeze o 
aplicație Web care să proceseze informaţiile privitoare la cursele aeriene 
furnizate de o anumită companie. De asemenea, se va furniza şi o soluție 
bazată pe XML. 


8. Să se compare timpul de execuție a diferitelor interogări SQL asupra unor 
servere de baze de date diferite, utilizând aceleaşi date şi aceeași platformă 
(configuraţie hardware, sistem de operare, server de Web). 


Capitolul 5 
Proiecte propuse 


Acest capitol pune la dispoziţia cititorului interesat o listă 
de propuneri de realizare de aplicaţii şi situri Web 
mai complexe. 


Agenda electronică 


Să se simuleze o agendă de birou, permiţând realizarea de adnotări pe zile, 
săptămâni, luni, includerea de legături Web, programarea de întâlniri etc. Agenda 
va include un mini-editor de texte, un calculator, un calendar şi un ceas electronic. 
Se vor prevedea autentificarea şi salvarea preferințelor utilizatorilor. 


Alege numele potrivit 


Să se proiecteze un sit Web pentru alegerea de către părinți a numelor de copii. 
Utilizatorii vor putea formula cerințe pentru nume, în funcție de sex, număr de 
silabe, litera de început etc. Se vor genera şi statistici referitoare la cele mai căutate 
nume. 


Călătorul 


Să se realizeze un sit Web furnizând informaţii despre traseele rutiere/ 
feroviare/aeriene (lungime, escale pe parcurs, tipuri de mijloace de transport, cost 
etc.) de la Iaşi la orice localitate importantă a țării. Datele referitoare la aceste rute 
vor fi administrate prin intermediul unei interfețe WWW. 


Clădiri 


Să se conceapă o aplicație Web pentru vizualizarea diferitelor informaţii 
(utilizare, capacitate, imagine interioară, dotare etc.) despre încăperile care compun 
clădirile unei anumite organizații, incluzând punerea la dispoziţia utilizatorului de 


hărți, planuri de situaţie şi având posibilități de căutare. Aceste informații vor fi 
accesate pe baza unor niveluri de autentificare. 


CSS Transformer 


Să se realizeze o aplicaţie Web care să analizeze şi să transforme documentele 
XML în documente XHTML, pornind de la foile de stiluri CSS asociate 
documentelor XML. 
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E-card 


Să se realizeze un sit Web pentru vizualizarea şi trimiterea de ilustrate 
electronice, pe diverse teme (peisaje, oraşe celebre, personalități marcante, opere 
de artă etc.). 


E-shop 


Să se implementeze un magazin virtual permițând potenţialilor clienti să 
vizualizeze, sá comande sau sá evalueze diferite produse/servicii. Se va tine cont de 
comenzile anterioare ale clientilor pentru a formula diverse sugestii sau a realiza 
anumite discount-uri pentru o serie de produse. De asemenea, se va implementa 
aşa-numitul „coş de cumpărături” şi se vor avea în vedere diferite modalităţi de 
plată. 


GenWeb 


Sá se realizeze o aplicatie Web care sá permitá generarea de situri Web 
(documente XHTML, CSS, scripturi de management al informaţiilor etc.) pornind 
de la anumite şabloane (/ayout-uri) selectate de utilizator (predefinite sau stabilite 
dinamic de către utilizator). 


Good Design Checker 


Să se'realizeze o aplicaţie care să verifice dacă un anumit sit respectă principiile 
de design şi ergonomie Web. Aplicația va putea formula si sugestii privind 
corectarea diverselor erori de design întâlnite în cadrul paginilor (e.g. validitatea 
documentelor, legături inexistente, documente de dimensiuni prea mari, utilizarea 
prea multor fonturi/culori într-o pagină, lipsa de mijloace de navigare prin paginile 
sitului etc.). 


MediaSearch 


Să se conceapă un sit Web pentru căutarea (folosind, eventual, alte motoare de 
căutare) a fişierelor multimedia (imagini GIF/IPEG/PNG, filme MPEG/ASF, audio 
MP3). Se vor reţine preferinţele utilizatorilor şi, pe baza acestora, la căutările 
ulterioare se vor putea oferi diverse sugestii. 


Monitor Web 


Să se implementeze o aplicație WWW care furnizează diverse statistici privind 
accesul la documentele de pe un sit, folosind datele conținute de fişierul 
access_log generat de serverul Web. Statisticile vor cuprinde grafice cu zonele de 
unde au fost făcute cereri, orele de acces maxim, paginile accesate cel mai des etc. 


PROIECTE PROPUSE 249 


StudData Manager 


Să se implementeze un manager cu interfaţă Web a situaţiei notelor şi prezenţei 
studenţilor la seminariile/laboratoarele susținute de un anumit cadru didactic. 
Această aplicaţie va putea genera, pe baza interogărilor, documente HTML cu 
situaţia parţială/finală a unor studenţi sau cu liste conform unor criterii dorite de 
utilizator. Editarea se va realiza pe baza autentificării. 


Virtual Course 


Să se realizeze o aplicație Web pentru managementul cursurilor multimedia 
disponibile online, oferind posibilitatea adăugării, modificării, ştergerii unor 
fragmente de curs sau a cursului în întregime, posibilitatea ca utilizatorii să 
realizeze adnotări, private sau publice, asupra unor porţiuni de curs. De asemenea, 
se va oferi un mecanism de (auto)testare interactivă a cursanților pentru fiecare 
curs. Accesul la cursuri se va realiza pe baza autentificării. 


WebDoc Manager 


Să se conceapă o aplicaţie Web pentru managementul avansat al documentafiilor 
electronice, pe diferite domenii, disponibile pe baza unor niveluri de autentificare: 
creare, adăugare, modificare, ştergere, căutare internă conform unor criterii diverse. 
Se va prevedea şi posibilitatea de oglindire automată a informaţiilor pe alt sit Web. 


WebProj 


Să se implementeze o aplicaţie Web care oferă posibilitatea de a atribui proiecte 
(pe grade de dificultate, grupuri de studenți etc.) la o anumită disciplină. Fiecare 
proiect propus poate fi „votat” („licitat”) de mai mulți utilizatori, propunătorul 
stabilind care solicitant va putea lua respectiva temă. Solicitantii vor fi instiintati, 
prin poşta electronică, dacă au apărut noi propuneri sau dacă anumite proiecte au 
fost deja alese. De asemenea, utilizatorii își pot exprima păreri asupra fiecăruia 
dintre proiectele propuse. 


Anexa 


Funcţiile Perl predefinite 


Anexa de față oferă lista tuturor funcțiilor Perl 
predefinite, structurate pe categorii. 


Manipularea valorilor scalare 


chomp, chop, chr, crypt, hex, index, lc, lcfirst, length, oct, ord, 


pack, q//, qq//, reverse, rindex, sprintf, substr, tr///, uc, ucfirst, 
y/// 


Expresii regulate 
m//, pos, quotemeta, s///, split, study 
Funcții numerice 
abs, atan2, cos, exp, hex, int, log, oct, rand, sin, sqrt, srand 
Procesarea tablourilor 
pop, push, shift, splice, unshift 
Procesarea listelor 
grep, join, map, qw//, reverse, sort, unpack 
Procesarea tabourilor asociative 
delete, each, exists, keys, values 
Intrări şi ieşiri 
binmode, close, closedir, dbmclose, dbmopen, die, eof, fileno, 
flock, format, getc, print, printf, read, readdir, rewinddir, seek, 


seekdir, select , syscall, sysread, syswrite, tell, telldir, 
truncate, warn, write 


Procesarea datelor de lungime fixă 
pack, read, syscall, sysread, syswrite, unpack, vec 
Descriptori de fişier, fişiere şi directoare 


chdir, chmod, chown, chroot, fcntl, glob, ioctl, link, lstat, mkdir, 
open, opendir, readlink, rename, rmdir, select, stat, symlink, 
sysopen, umask, unlink, utime 
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Controlul fluxului programului 
caller, continue, die, do, dump, eval, exit, goto, last, next, redo, 
return, sub, wantarray 
Controlul vizibilitájii 
caller, import, local, my, package, use 
Procese și grupuri de procese 


alarm, exec, fork, getpgrp, getppid, getpriority, kill, pipe, qx//, 
setpgrp, setpriority, sleep, system, times, wait, waitpid 


Module si biblioteci 

do, import, no, package, require, use 
Clase și obiecte 

bless, dbmclose, dbmopen, package, ref, tie, tied, untie, use 
Acces la rețea (socket-uri) 

accept, bind, connect, getpeername, getsockname, getsockopt, 
listen, recv, send, setsockopt, shutdown, socket, socketpair 
Comunicare intre procese 

msgctl, msgget, msgrcv, msgsnd, semctl, semget, semop, shmcti, 
shmget, shmread, shmwrite 
Informaţii despre utilizatori şi grupuri 

endgrent, endhostent, endnetent, endpwent, getgrent, getgrgid, 
getgrnam, getlogin, getpwent, getpwnam, getpwuid, setgrent, 
setpwent 
Informatii despre refea 


gethostbyname, 
getnetent, 


gethostbyaddr, 
getnetbyname, 


endprotoent, endservent, 


gethostent, getnetbyaddr, 
getprotobyname, getprotobynumber, getprotoent, getservbyname, 
getservbyport, getservent, sethostent, setnetent, setprotoent, 
setservent 


Manipularea timpului 
gmtime, localtime, time, times 
Alte functii utile 


defined, dump, eval, formline, local, my, reset, scalar, undef 


10. 


1i. 


12. 
13. 
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